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编辑过]

把3句replace合并成一句还能快一点点

估计要结合你的实际业务场景了，例子本身可优化的空间很小，速度来去不会很大，也可以 Update 操作：

update temp set F1 = '序'+Padl(Alltrim(Str(Recno())),5,[00000]),;
F2 = [A]+Padl(Alltrim(Str(Recno())),5,[00000]),;
F3 = Recno()

2楼、3楼的朋友，估计是理解错了。那应该只是楼主给的是测试数据代码而已。
楼主应该是求续写的后面的代码，动态分栏、分页。

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

分组吧？

是的。谢谢

对，对给定数据表，实现动态分组与动态分页，谢谢。
每组最多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编辑过]