[access报表][原创分享]一个简单报表中自动画表格及自动补空行的函数

时　间:2009-04-01 08:47:17
作　者:红尘如烟   ID：10768  城市：成都
摘　要:一个简单报表中自动画表格及自动补空行的函数。
正　文:

函数名称： ReportFormat
'-功能描述： 对报表进行格式化,
'-输入参数： 参数1：rpt ----需要格式化的报表
' 　　　　　 参数2：　　ctlID----设置序号的控件
' 　　　　　 参数3：　　FormatMode----格式化样式: 0--方格式,1--横格式,2--竖格式
' 　　　　　 参数4：　　FillBlankline----true在最后一页补空行,false在最后一页不补空行
'-返回参数： True 设置成功，False设置失败
'-使用示例： ReportFormat Me, txtID
'-使用注意： 必须有一个作为序号的文本框类控件,将其控件来源设为"=1",运行总和设为"全部之上",
'  　　　　　最左边的控件必须为主体节中最先创建的控件,如果不是,可以通过将其它控件进行剪切-
'  　　　　　粘贴操作来实现
' 　　　　　 最右边的控件必须为主体节中最后创建的控件,如果不是,可以通过将其进行剪切-粘贴操
' 　　　　　 作来实现
'-兼 容 性： 不支持报表页眉和报表页脚及自定义节,由于表格行数是以第1页记录数为准,所以当打印
'  　　　　　数据只有1页时不能实现补空行

附   件:

点击下载此附件

效   果: