原数据：
想生成：


请帮忙解决,谢谢！

[此贴子已经被作者于2018-7-22 17:56编辑过]

CLOSE DATABASES
SELECT BH,XM,000 CS FROM TT INTO TABLE TTT
INDEX ON XM TO XM
N=1
CXM=""
SCAN
    IF XM==CXM
        N=N+1
    ELSE
        N=1
    ENDIF
    REPLACE CS WITH N
    CXM=XM
ENDSCAN
BROWSE

[此贴子已经被作者于2018-7-22 18:24编辑过]

谢谢sdta！