回复 14楼 sdta
一楼代码是给定测试数据,IO万条,3字段,只是举例。
当然啦,表字段数不固定,返回表的字段数=分栏数*原字段
是对给定数据表,实现动态分组与动态分页,每组最多50,分栏组数不固定。
如3栏,则每页最多 150,如2栏,则每页最多 100。
不足一页时,不一定是 50。
比如,有 65条,分2组,那么左组 33,右组 32,一页
如有 99条,分2组,那么左组50,右组 49,一页
如有 101条,分2组,第一页左 50,右50,第二页左1。
也不知道描述消楚没,谢谢大佬关注!
*===================================================================================
*作 用:对指定数据表分栏分组分页
*语 法:ColGroup_Convert(cTableMc,nNumber,cOutTableMc,nMaxColGroupRec)
*参数说明:cInTableMc 要转换的数据表,nNumber 分栏分组数,
*参数说明:cOutTableMc 分栏分组后的数据表,nMaxColGroupRec 每页每栏的最大记录数(默认为50)
*返 回 值:返回生成后的新表(返回表的字段数=分栏数*原字段)
*===================================================================================
Function ColGroup_Convert(cTableMc,nNumber,cOutTableMc,nMaxColGroupRec)
If Parameters()#4
Messagebox('参数个数不对!',16,'错误')
Return ''
Endif
If Vartype(cTableMc)#'C' Or Vartype(nNumber)#'N' Or Vartype(cOutTableMc)#'C' Or Vartype(nMaxColGroupRec)#'N'
Messagebox('参数类型不对!',16,'错误')
Return ''
Endif
Private All
....
....
....
.....
Endfunc