Create Cursor temp (F1 c(10),F2 c(10),F3 N(6,1))
For jj=1 To 999999
    Append Blank
Endfor

Replace All F1 With '序'+Padl(Alltrim(Str(Recno())),5,[00000])
Replace All F2 With [A]+Padl(Alltrim(Str(Recno())),5,[00000])
Replace All F3 With Recno()
*----------------------------------------------------*
t1=SECONDS()
*----------------------------------------------------*

[此贴子已经被作者于2023-12-1 12:15编辑过]

是的。谢谢

对，对给定数据表，实现动态分组与动态分页，谢谢。
每组最多50。
比如，有 65条，分2组，那么左组 33，右组 32，一页
如有 99条，分2组，那么左组50，右组 49，一页
如有 101条，分2组，第一页左 50，右50，第二页左1。

[此贴子已经被作者于2023-12-17 14:37编辑过]

能否附上您的调用函数代码，学习您的思路，谢谢。

您误会了，我没讲清楚。
是对给定数据表，实现动态分组与动态分页，谢谢。
每组最多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

[此贴子已经被作者于2023-12-17 14:38编辑过]

对，返回表。
返 回 值：返回生成后的新表（返回表的字段数=分栏数*原字段）

假设原表字段为 f1f2f3，分3栏，新表字段则为9个字段。当然啦，各字段类型与原表一样。

[此贴子已经被作者于2023-12-14 23:04编辑过]

因论坛时好时坏，当时已无法编辑一楼了。是没有描述完，见谅。

[此贴子已经被作者于2023-12-14 22:34编辑过]

分栏数不固定的。道理大方向应该是对的。谢谢。

一楼代码是给定测试数据，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

论坛可能还是有点bug，图片不能显示吗?
一楼举例分2组，3组的示例图，大家可以看到吗？