设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 26831|回复: 82
打印 上一主题 下一主题

[报表] [原创]分组报表示例

[复制链接]
跳转到指定楼层
1#
发表于 2006-4-8 07:18:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
用临时表和画线实现分组报表打印


游客,如果您要查看本帖隐藏内容请回复



例子很好,加精奖励----一点通

[此贴子已经被一点通于2006-4-9 1:48:01编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-4-9 07:54:00 | 只看该作者
已收下,谢谢!!!
3#
发表于 2006-4-9 08:24:00 | 只看该作者
收下,用时再研究,好想法有点象EXCEL表格
4#
发表于 2006-4-10 04:50:00 | 只看该作者
收下,仔细研究研究
5#
发表于 2006-4-10 17:31:00 | 只看该作者
下载了
6#
发表于 2006-4-12 20:45:00 | 只看该作者
如果要看每页效果请問怎樣設定变量?

謝謝!~
7#
 楼主| 发表于 2006-4-12 21:26:00 | 只看该作者
如果要预览第2页把代码改成下面的

For I = 2 To 2                    
'For I = 1 To MaxPages
  Conn.Execute "delete * from temp"
  
  If I = 1 Then
     Sql = "INSERT INTO temp SELECT TOP " & PageCount & " *  FROM 教师"
   Else
     Sql = "INSERT INTO temp SELECT TOP " & PageCount & " * FROM 教师 WHERE 教师.身份证号 Not In (select top " & (I - 1) * PageCount & " 身份证号 from 教师 )"
End If
Conn.Execute Sql

Next I
DoCmd.OpenReport "教师报表", acViewPreview
8#
发表于 2006-4-12 21:52:00 | 只看该作者
謝謝樓主的指點,

現在問題是我如果要一次预览N多頁,請問可以解決嗎?

再次謝謝!
9#
 楼主| 发表于 2006-4-12 22:25:00 | 只看该作者
如果一次性预览N页,按现在的必须用N个临时表,和N个报表解决

10#
发表于 2006-4-13 07:41:00 | 只看该作者
好。。支持~~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 03:13 , Processed in 0.101058 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表