设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 23418|回复: 82

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

[复制链接]
发表于 2006-4-8 07:18:00 | 显示全部楼层 |阅读模式
用临时表和画线实现分组报表打印


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



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

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

本帖子中包含更多资源

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

x
发表于 2006-4-9 07:54:00 | 显示全部楼层
已收下,谢谢!!!
发表于 2006-4-9 08:24:00 | 显示全部楼层
收下,用时再研究,好想法有点象EXCEL表格
发表于 2006-4-10 04:50:00 | 显示全部楼层
收下,仔细研究研究
发表于 2006-4-10 17:31:00 | 显示全部楼层
下载了
发表于 2006-4-12 20:45:00 | 显示全部楼层
如果要看每页效果请問怎樣設定变量?

謝謝!~
 楼主| 发表于 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
发表于 2006-4-12 21:52:00 | 显示全部楼层
謝謝樓主的指點,

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

再次謝謝!
 楼主| 发表于 2006-4-12 22:25:00 | 显示全部楼层
如果一次性预览N页,按现在的必须用N个临时表,和N个报表解决

发表于 2006-4-13 07:41:00 | 显示全部楼层
好。。支持~~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 13:14 , Processed in 0.106170 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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