认真仔细阅读、研究一下sdta的程序，测试一下，得到的结果与你希望的结果是否一致？

唉，给这个代码有什么意义？心疼你三秒

老版主出山了，不心疼电费了

很多年没碰过写代码了，最近被逼无耐，因为单位上的软件是IE的，只能做了一个外挂，偶尔想起这里，上来看看，还好吗？弟兄

托你的福，还行。
最近看不到"葛忧"了

楼主，你会编写试场号与座位号及准考证号的话，你的问题是同一个原理啊，不就很容易解决了嘛！

自己动脑筋，按照编码的规则，结合sdta提供的代码，这个实现起来并不难。

1、原表tb1中需要区分记录的方法（比如学号 xsh、身份证号 sfzh……）
2、只要研究清楚select sql命令的用法就可以了
  
  以下是代码
 select   distinct kshmdm from tb1 into cursor kctmp order by kskmdm
for I=1 to recount('kctmp')
    select kctmp
    go I
    kmdm=allt(kskmdm)
    select xsh from tb1 where allt(ksdmdm)==m.kmdm into cursor tmp
    for j=1 to recount('tmp')
        select tmp
        go j
        cxsh=allt(xsh)
        select tb1
        repl xh with PADL(j, 3, "0") for allt(xsh)==cxsh
    endfor
endfor

   
   

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")
BROWSE

INDEX on kskmdm TAG px
nXh = 1&&&若此处为1；下面if用绝对等于两个==，如果if语句一个等号=，此处可以为0
cDm = ""
SCAN 
    IF kskmdm == cDm
        nXh = nXh + 1
    ELSE
        nXh = 1        
    ENDIF 
    cDm = Kskmdm
    REPLACE xh WITH PADL(nXh, 3, "0")
ENDSCAN
BROWSE 

你试试就能发现，版主的已经实现了不同kskmdm了

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")
BROWSE

INDEX on kskmdm TAG px
nXh = 1&&&若此处为1；下面IF kskmdm == cDm用绝对等于（两个==），如果if语句一个等号=，此处可以为0
cDm = ""
SCAN 
    IF kskmdm == cDm
        nXh = nXh + 1
    ELSE
        nXh = 1        
    ENDIF 
    cDm = Kskmdm
    REPLACE xh WITH PADL(nXh, 3, "0")
ENDSCAN
BROWSE