USE OK_WK set order to 班级 nbj=1 SCAN if 班级!=nbj store 1 to i endif REPLACE 姓名 with 班级+padl(i,2,"0") i=i+1 nbj=班级 ENDSCAN
ALLTRIM(STR(班级))+PADL(i,2,"0")