1. 是需要完善function中...的那部分吧？
2. 函数返回是个分组后的表吗？
3. 结果如果是个表，是需要在原表中标识分组，还是通过新建字段实现分组？

先用总记录数除以100判断，需要多少页，再用奇偶数判断最后一页的左侧多少、右侧多少吧。不要见笑，仅供参考

clea
CLOSE all
CREATE CURSOR 分组  (recn1 i,recn2 i)
use 表1 IN 0
SELECT 表1
SCAN
    if MOD(recn()-1,100)<50
        inse into 分组 (recn1) values(recn("表1"))
    ELSE
        go 50*INT((RECNO("表1")-1)/100)+MOD(RECNO("表1")-1,50)+1 IN 分组
        REPLACE recn2 WITH RECNO("表1") IN 分组
    ENDIF
ENDSCAN
SELECT 1
brow

Replace All F1 With '序'+Padl(Recno(),6,[0]), F2 With [A]+Padl(Recno(),6,[0]), F3 With Recno()

只要把要求说清楚，楼主的问题应该不难吧　

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

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

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

clea
CLOSE all
CREATE CURSOR 分组  (recn1 i,recn2 i)
use 表1 IN 0
SELECT 表1
SCAN
    st=IIF(MOD(RECNO(),100)=1,RECNO(),st)
    fz=IIF(MOD(RECNO(),100)=1,IIF(RECCOUNT()-RECNO()<99,(RECCOUNT()-RECNO()-MOD(RECCOUNT()-RECNO(),2))/2+1,50),fz)
    if MOD(recn()-st,2*fz)<fz
        inse into 分组 (recn1) values(recn("表1"))
    ELSE
        go st/2+mod(RECNO("表1")-st-fz,2*fz)+1 IN 分组
        REPLACE recn2 WITH RECNO("表1") IN 分组
    ENDIF
ENDSCAN
SELECT 1
brow

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

[此贴子已经被作者于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