程序代码:
CLOSE DATABASES CREATE CURSOR jskb (jsxm c(8), km c(10)) USE jsrkb IN 0 SELECT jsrkb SCAN FOR i = 3 TO FCOUNT() ckc = FIELD(i) IF NOT EMPTY(EVALUATE("jsrkb." + ckc)) INSERT INTO jskb VALUES (EVALUATE("jsrkb." + ckc), ckc) ENDIF ENDFOR ENDSCAN SELECT jsxm FROM jskb WHERE INLIST(ALLTRIM(km), "语文", "数学", "英语") INTO CURSOR temp SELECT DISTINCT jsxm FROM jskb WHERE jsxm NOT in (SELECT jsxm FROM temp) ORDER BY jsxm
坚守VFP最后的阵地