以下为新的函数说明:
==============================================================
函数名:RepDetail_Format()
调用报表必须使用控件:(文本框)
txtRecord_NO 在主体节 可见 用于显示记录号,可选
txtTotGrp 在主体节 不可见 =Count(*) 用于取得报表的总记录数,必须
txtCurrentPage 在主体节 不可见 =[Page] 用于取得当前页数,必须
参数说明: RepName 报表名称 (当前报表可用 (Me), 其它报表可用:(Reports.报表名)引用),必须
txtCurrentPage 报表主体节上的[txtCurrentPage]文本框控件 ,必须
txtRecordNum 报表定义的私人变量 数据类型:Integer 用于记录数的递增,必须
(注:在报表模块顶部声明 : Private txtRecordNum As Integer )
txtTotGrp 报表主体节上的[txtTotGrp]文本框控件 ,必须
IntPrintLen 报表打印的行数。
-----数据类型:Integer (注:不可超过每页允许的最大记录数),可选,(默认:25 行)
DouPageLine 报表主体记录部分打印长度。
-----数据类型:Double (注:不可超过每页允许的最大记录数),可选,(默认:21 CM )
FontSize 报表记录部分字号。
-----数据类型:Integer (注:不可超过每页允许的最大记录数),可选,(默认:0 字号不变)
txtRecord_NO 记录序号文本框名称。
-----数据类型:String (注:不可超过每页允许的最大记录数),可选,(缺省为没有使用)
使用方法:
1,先定义一私人变量:Private txtRecordNum As Integer,必须
2,报表主体节的格式化事件中调用(Detail_Format 事件)
调用方法:NextRecord=RepDetail_Format(RepName , txtCurrentPage.text , txtRecordNum , txtTotGrp.text , IntPrintLen)
使用示例:NextRecord = RepDetail_Format(Me, [txtCurrentPage], txtRecordNum, [txtTotGrp], 20)
本函数由 binuochao (许伟军) 完成。制作于2003-06-27 Email:binuochao@sina.com.cn QQ:10077241
=============================================================