怎么实现：

比如：
kskmdm xm
303 张三
303 李四
303 王五
304 齐六
304 赵七
......
自动变成：
xh kskmdm xm
001 303 张三
002 303 李四
003 303 王五
001 304 齐六
002 304 赵七
......

排序编码

大佬 能不能简单写一个程序我学习下

代码简单，自己动动手。
按kskmdm排队后扫描表一次
xh从1起后一记录+1，如果kskmdm变动xh=1

大佬啊 vfp小白一个 请给个全的代码应急

CREATE CURSOR tt (xh c(3),kskmdm c(3), xm c(10))
INSERT INTO tt VALUES ("","304","张1")
INSERT INTO tt VALUES ("","303","张2")
INSERT INTO tt VALUES ("","303","张3")
INSERT INTO tt VALUES ("","304","张4")
INSERT INTO tt VALUES ("","303","张5")
INSERT INTO tt VALUES ("","303","张6")
INSERT INTO tt VALUES ("","305","张7")
INSERT INTO tt VALUES ("","306","张8")
INDEX on kskmdm TAG px
nXh = 1
cDm = ""
SCAN
    IF kskmdm == cDm
        nXh = nXh + 1
    ELSE
        nXh = 1        
    ENDIF
    cDm = Kskmdm
    REPLACE xh WITH PADL(nXh, 3, "0")
ENDSCAN
BROWSE

大佬 我明白你的意思 但是我的考生编号这栏目 303  304啥的 有一百多项 不能一个个写命令吧 有没有其他的方式？

解决问题的就下面几行代码
INDEX on kskmdm TAG px
nXh = 1
cDm = ""
SCAN
    IF kskmdm == cDm
        nXh = nXh + 1
    ELSE
        nXh = 1        
    ENDIF
    cDm = Kskmdm
    REPLACE xh WITH PADL(nXh, 3, "0")
ENDSCAN

如果楼主嫌麻烦，可以请别人帮忙处理数据，那是要有代价的。

估计楼主连如何运行代码都不会