得出的平均分在排名。按照类别。加强是加强的排名，奥赛是奥赛的排名。



增加的数据库字段 所带类别，有可能 有老师 是带一个加强，一个奥赛。也都列出来。例如5班是加强，20班是奥赛，这个老师就是 5加强 20奥赛。

CREATE CURSOR zjfb (序号 c(12),姓名 c(8),班级数 n(5,0),班级名 c(30),所带类别 c(30),科目积分 n(5,0),平均 n(7,2),科目均分名次 n(4,0))

我把类别加上了。

跟不上你的思维

那就不要加类别了。

不明白什么意思

USE 第一学期期中积分
COPY TO jfb
Clear 
Close Databases all
*!* 数组变量设置
Local akm[7],bkm[7],x[16]
* 科目
akm[1]="Yw" && 语文
akm[2]="Sx" && 数学
akm[3]="Yy" && 英语
akm[4]="Wl"
akm[5]="Hx"
akm[6]="Sw"
akm[7]="Zf"

bkm[1]="Yw" && 语文
bkm[2]="Sx" && 数学
bkm[3]="Yy" && 英语
bkm[4]="Wl"
bkm[5]="Hx"
bkm[6]="Sw"
bkm[7]="Zf"


* 保存计数结果的变量
X=0

Use jfb In 0
SELECT MAX(VAL(bj)) FROM jfb INTO ARRAY amax

Select jfb
DELETE FOR RECNO()>amax
PACK

SCAN for !Empty(bj)
    Select jfb
    For i=1 to Alen(akm,1)
        ckm=akm[i]+"kmjf"
        dkm=bkm[i]+"jfmc"

            Replace &ckm with 20 FOR &dkm=1 in jfb
             Replace &ckm with 19 FOR &dkm=2 in jfb
              Replace &ckm with 18 FOR &dkm=3 in jfb
               Replace &ckm with 17 FOR &dkm=4 in jfb
                Replace &ckm with 16 FOR &dkm=5 in jfb
                 Replace &ckm with 15 FOR &dkm=6 in jfb
                  Replace &ckm with 14 FOR &dkm=7 in jfb
                   Replace &ckm with 13 FOR &dkm=8 in jfb
                    Replace &ckm with 12 FOR &dkm=9 in jfb
                     Replace &ckm with 11 FOR &dkm=10 in jfb
                      Replace &ckm with 10 FOR &dkm=11 in jfb
                       Replace &ckm with 9 FOR &dkm=12 in jfb
                        Replace &ckm with 8 FOR &dkm=13 in jfb
                         Replace &ckm with 7 FOR &dkm=14 in jfb
                          Replace &ckm with 6 FOR &dkm=15 in jfb
                           Replace &ckm with 5 FOR &dkm=16 in jfb
                             Replace &ckm with 4 FOR &dkm=17 in jfb
                               Replace &ckm with 3 FOR &dkm=18 in jfb
                                 Replace &ckm with 2 FOR &dkm=19 in jfb
                                   Replace &ckm with 1 FOR &dkm=20 in jfb
                           
                          
        EndFor
        X=0

ENDSCAN

CLOSE DATABASES ALL 
CREATE CURSOR zjfb (序号 c(12),姓名 c(8),班级数 n(5,0),班级名 c(30),总分 n(5,0),平均 n(7,2))
USE jfb IN 0
SELECT jfb
LOCAL azd[FCOUNT()-1]
FOR i=2 TO FCOUNT()
    azd[i-1]=FIELD(i)
ENDFOR
DIMENSION azd[ALEN(azd,1)/2,2]
FOR i=1 TO ALEN(azd,1)
    INDEX on &azd[i,2] TO xm
    xm=""
    nxh=1
    SCAN
        IF &azd[i,2]==xm
            REPLACE 班级数 WITH 班级数+1,班级名 WITH 班级名-","-jfb.bj,总分 WITH 总分+EVALUATE("jfb."+azd[i,1]),平均 WITH 总分/班级数 IN zjfb
        ELSE 
            INSERT INTO zjfb VALUES (azd[i,2]+TRANSFORM(nxh),EVALUATE("jfb."+azd[i,2]),1,jfb.bj,EVALUATE("jfb."+azd[i,1]),EVALUATE("jfb."+azd[i,1]))
            nxh=nxh+1
        ENDIF 
        xm=&azd[i,2]
    ENDSCAN
ENDFOR
SELECT zjfb 
BROWSE

按照这个处理数据，提示数据类型不正确。

两个表中的字段数及字段名也不一样啊，当然会出错的。

就是不知道哪里出错。

字段名位置不同

对对对，找不到哪里控制位置的。。请老师指点。