回复4楼xuminxz老师,
例如我选修了物化生,我想找到所有我能填报志愿,列成表,表的结构和样表一样就可以,和附件中一样的电子表格也可以.谢谢
志愿表.rar
(9.31 KB)
例如我选修了物化生,我想找到所有我能填报志愿,列成表,表的结构和样表一样就可以,和附件中一样的电子表格也可以.谢谢

[此贴子已经被作者于2021-5-10 10:20编辑过]
CLOSE TABLES all USE 样表 ad=.t. FOR i=1 TO FCOUNT() IF FIELD(i)='TJ' ad=.f. EXIT ENDIF ENDFOR IF ad ALTER TABLE 样表 ADD tj i ALTER TABLE 样表 ADD ks i ENDIF REPLACE ks WITH VAL(必修科数),tj with 0 all DELETE FOR ks>0 all REPLACE tj with tj+1 FOR '物' $ 必修科目 REPLACE tj with tj+1 FOR '化'$ 必修科目 REPLACE tj with tj+1 FOR '生'$ 必修科目 SELECT * FROM 样表 INTO CURSOR tjjg WHERE tj>=ks
LOCAL km[3] * 如果只有两门科目,可以将某一门设置为空字符 km[1] = "物" km[2] = "化" km[3] = "生" * 构造条件表达式 lcStr = 'ALLTRIM(必修科目) == "不限"' FOR lnJ = 1 TO ALEN(km, 1) lcStr = lcStr + IIF(EMPTY(km[lnJ]), '', ' OR "' + km[lnJ] + '" $ 必修科目') ENDFOR * 符合报考条件的院校 SELECT * FROM 样表 WHERE &lcStr * 不符合报考条件的院校 SELECT * FROM 样表 WHERE NOT (&lcStr)