程序代码：

*--计算语文班名次
SELECT xm,bj,0000 AS ywbjmc FROM yclk ORDER BY bj,语文 DESC INTO CURSOR T1 readwrite
SELECT T1
lcBJ=ALLTRIM(bj)
I=1
SCAN
IF ALLTRIM(bj)<>lcBJ
lcBJ=ALLTRIM(bj)
I=1
ENDIF
REPLACE ywbjmc WITH I
I=I+1
ENDSCAN
SCAN
UPDATE yclk SET ywbjmc=T1.ywbjmc WHERE xm=T1.xm AND bj=T1.bj
ENDSCAN
*--计算语文年级名次
SELECT xm,bj,0000 AS ywnjmc FROM yclk ORDER BY 语文 DESC INTO CURSOR T1 readwrite

UPDATE T1 SET ywnjmc=RECNO()
SCAN
UPDATE yclk SET ywnjmc=T1.ywnjmc WHERE xm=T1.xm AND bj=T1.bj
ENDSCAN

[此贴子已经被作者于2017-10-28 12:29编辑过]

程序代码：

clear memory
clear
set talk off

use jf
go top
do while .not. eof()
    store 1 to ywjf0,sxjf0,yyjf0,wljf0,hxjf0,swjf0,lsjf0,zzjf0,dljf0,zfjf0
    yw0=ywjf
    sx0=sxjf
    yy0=yyjf
    wl0=wljf
    hx0=hxjf
    sw0=swjf
    ls0=lsjf
    zz0=zzjf
    dl0=dljf
    zf0=zfjf
    n=recno()
    类别0=类别
    go top
       do while .not. eof()
        if 类别0<>类别
        skip
        loop
        endif
        if yw0<ywjf
        ywjf0=ywjf0+1
        endif 
       if sx0<sxjf
        sxjf0=sxjf0+1
        endif
        if yy0<yyjf
        yyjf0=yyjf0+1
        endif 
           if wl0<wljf 
        wljf0=wljf0+1
        endif 
        if hx0<hxjf
        hxjf0=hxjf0+1
        endif 
        if sw0<swjf
        swjf0=swjf0+1
        endif 
        if ls0<lsjf
        lsjf0=lsjf0+1
        endif 
        if zz0<zzjf
        zzjf0=zzjf0+1
        endif 
        if dl0<dljf
        dljf0=dljf0+1
        endif
        if zf0<zfjf
        zfjf0=zfjf0+1
        endif
        if 类别=" "
        ywjf0=0
        sxjf0=0
        yyjf0=0
        wljf0=0
        hxjf0=0
        swjf0=0
        zzjf0=0
        lsjf0=0
        dljf0=0
        zfjf0=0
        endif
        skip
       enddo
    go n
    repl ywjfmc with ywjf0,sxjfmc with sxjf0,yyjfmc with yyjf0,;
wljfmc with wljf0,hxjfmc with hxjf0,swjfmc with swjf0,lsjfmc with lsjf0,zzjfmc with zzjf0,;
dljfmc with dljf0,zfjfmc with zfjf0
    skip
enddo
use
set talk on