[此贴子已经被作者于2016-6-5 22:13编辑过]
CLOSE TABLES SET SAFETY OFF USE cj ALIAS cj BLANK ALL FIELDS bjmc,njmc INDEX ON bj-STR(zf,5,1) TAG px DESCENDING * 班级名次 mc=1 && 记录班级名次 nzf=0 && 记录上条记录的ZF cbj="" && 记录班级名称 nrs=1 && 记录班级人数 SCAN IF ALLTRIM(bj)!=cbj nrs=1 mc=1 ELSE IF zf!=nzf mc=nrs ENDIF ENDIF replace bjmc with mc nrs=nrs+1 nzf=zf cbj=alltrim(bj) ENDSCAN BROWSE