[原创]分组报表示例

andymark · 发表于 2006-4-8 07:18:00

用临时表和画线实现分组报表打印

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

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

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

gxlishuxin · 发表于 2006-4-9 07:54:00

已收下，谢谢！！！

zxzx2733 · 发表于 2006-4-9 08:24:00

收下，用时再研究，好想法有点象EXCEL表格

datouameng · 发表于 2006-4-10 04:50:00

收下,仔细研究研究

无忧 · 发表于 2006-4-10 17:31:00

下载了

5988143 · 发表于 2006-4-12 20:45:00

如果要看每页效果请問怎樣設定变量?

謝謝!~

andymark · 发表于 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

5988143 · 发表于 2006-4-12 21:52:00

謝謝樓主的指點,

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

再次謝謝!

andymark · 发表于 2006-4-12 22:25:00

如果一次性预览N页，按现在的必须用N个临时表，和N个报表解决

lym416 · 发表于 2006-4-13 07:41:00

好。。支持~~

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

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

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)