**以班级、学号是文本型为例 xh=1 kq="" SCAN IF ALLTRIM(班级)!=kq xh=1 ENDIF REPLACE 学号 WITH PADL(TRANSFORM(xh),3,[0]) xh=xh+1 kq=ALLTRIM(班级) ENDSCAN GO TOP BROWSE