[此贴子已经被作者于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