查询表格出现  姓名  所带班级列表  所带班级积分及 该老师任课科目？

SET LIBRARY TO  "C:\Program Files (x86)\Microsoft Visual FoxPro 9\foxtools.fll"
SET SAFETY OFF

CLOSE TABLES all
CREATE TABLE tjjg (xm c(10),bj c(2),jf i,skmc c(6))
kcmc='语文 数学 英语 物理 化学 生物 政治 历史 地理'
FOR i=1 TO 9
    SELECT EVALUATE(FIELD(i*20+7)), bj,  EVALUATE(FIELD(i*20+5)),WordNum(kcmc,i) FROM 积分 INTO ARRAY tmpar WHERE  !EMPTY(EVALUATE(FIELD(i*20+7)))
    APPEND FROM ARRAY  tmpar
ENDFOR

brow

如果是所带班级名次呢？EVALUATE(FIELD(i*20+5)) 里的 i*20+5 是什么意思？

改EVALUATE(FIELD(i*20+5))为 EVALUATE(FIELD(i*20+6))，也增加这个但是tjjg表中要增加一项。
i*20+5 代表第i门课积分所在的列

CLOSE DATABASES 

LOCAL xchr,xkcmc[1],xfields[1],ii
xchr = '语文,数学,英语,物理,化学,生物,政治,历史,地理'
ALINES(xkcmc,xchr,2,',')

xchr = 'yw,sx,yy,wl,hx,sw,zz,ls,dl'
ALINES(xfields,xchr,2,',')

CREATE CURSOR tjjg (xm c(10),bj c(2),jf i,jfmc i,skmc c(6))

FOR ii=1 TO ALEN(xkcmc)
    INSERT INTO tjjg (xm,bj,jf,jfmc,skmc) ;
        SELECT EVALUATE(LEFT(xkcmc[ii],2)+'任课教师') xm,bj,EVALUATE(xfields[ii]+'jf') jf,EVALUATE(xfields[ii]+'jfmc') jfmc,xkcmc[ii] skmc ;
        FROM 积分 WHERE !EMPTY(EVALUATE(LEFT(xkcmc[ii],2)+'任课教师'))
ENDFOR 

SELECT tjjg
GO TOP 
BROWSE