如何查询某个老师所带班级科目及班级积分和班级总类型数？ - 编程论坛

#2

xuminxz2021-11-07 22:24

程序代码：

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

#3

分号2021-11-08 07:37

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

#4

xuminxz2021-11-08 08:09

回复 3楼分号

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

#5

laowan0012021-11-08 09:44

程序代码：

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

只有本站会员才能查看附件，请登录