Access一个简单报表中自动画表格及自动补空行的函数

函数名称： ReportFormat
功能描述：对报表进行格式化,
输入参数：参数1：rpt ----需要格式化的报表
　　　　　参数2：　　ctlID----设置序号的控件
　　　　　参数3：　　FormatMode----格式化样式: 0--方格式,1--横格式,2--竖格式
　　　　　参数4：　　FillBlankline----true在最后一页补空行,false在最后一页不补空行
返回参数： True 设置成功，False设置失败
使用示例： ReportFormat Me, txtID
使用注意：必须有一个作为序号的文本框类控件,将其控件来源设为"=1",运行总和设为"全部之上",
　　　　　最左边的控件必须为主体节中最先创建的控件,如果不是,可以通过将其它控件进行剪切

　　　　　粘贴操作来实现
　　　　　最右边的控件必须为主体节中最后创建的控件,如果不是,可以通过将其进行剪切-粘贴操
　　　　　作来实现

兼容性：不支持报表页眉和报表页脚及自定义节,由于表格行数是以第1页记录数为准,所以当打印
　　　　　数据只有1页时不能实现补空行
作者：红尘如烟
创建日期： 2008年7月13日
access数据库