程序代码:
USE 表1 cfldlist='语文,数学,英语,物理,化学,生物' n=ALINES(afld,cfldlist,1+4,',') DIMENSION awc(n,2) SCAN FOR i=1 TO n awc(m.i,1)=afld(m.i)+"位次" cmc=afld(m.i)+"名次" awc(m.i,2)=&cmc ENDFOR =ASORT(awc,2,0,1) k=1 pre=awc(1,2) FOR i=1 TO n if awc(i,2)#pre k=i pre=awc(i,2) endif replace &awc(i,1) WITH k endfor ENDSCAN BROWSE
这样就倒序了。