UPDATE yclk SET ywbjmc = 1+(sele COUNT(*) from yclk a WHERE a.语文 > yclk.语文 AND a.bj = yclk.bj )

最后那个压缩文件里面有个update，运行结果正确吧！

use km in 0****科目库
use cj31 IN 0****成绩库

    sele km
         go top
        do while not eof()
        t_km=km
        
        *??'  '+km
            SELECT cj31

                SET ORDER TO &t_km
                GO top
                t_mc=1
                t_mc1=1
                t_cj=&t_km

            replace &t_km.mc with 1
                SKIP
                    DO while not EOF()
                        t_mc1=t_mc1+1
                        IF &t_km<t_cj
                            t_mc=t_mc1
                            t_cj=&t_km
                        ENDIF
                    replace &t_km.mc with t_mc
                    SKIP
                    ENDDO
        sele km
        skip
        endd
        sele cj31
        use
        sele km
        use

use km in 0****科目库
use cj31 IN 0****成绩库

    sele km
         go top
        do while not eof()
        t_km=km
        
        *??'  '+km
            SELECT cj31

                SET ORDER TO &t_km
                GO top
                t_mc=1
                t_mc1=1
                t_cj=&t_km

            replace &t_km.mc with 1
                SKIP
                    DO while not EOF()
                        t_mc1=t_mc1+1
                        IF &t_km<t_cj
                            t_mc=t_mc1
                            t_cj=&t_km
                        ENDIF
                    replace &t_km.mc with t_mc
                    SKIP
                    ENDDO
        sele km
        skip
        endd
        sele cj31
        use
        sele km
        use