回复 18楼 xuminxz
谢谢!那我转头研究VFP去了
CLOSE TABLES all SET LIBRARY TO "C:\Program Files (x86)\Microsoft Visual FoxPro 9\foxtools.fll" SELECT 物理+化学+生物+历史+地理+政治 总成绩,* FROM cjzb INTO CURSOR dycjtmp ORDER BY 班级,考生号 READWRITE REPLACE 选修科目 WITH '' all DIMENSION kmzdh(6) j=0 FOR i=1 TO FCOUNT() IF OCCURS(FIELD(i),'物理化学生物历史地理政治')>0 j=j+1 kmzdh(j)=FIELD(i) ENDIF ENDFOR FOR i=1 TO 6 REPLACE 选修科目 WITH ALLTRIM(选修科目)+' '+kmzdh(i) for EVALUATE(kmzdh(i))>0 ENDFOR REPLACE 选修科目 WITH ALLTRIM(选修科目) all REPORT FORM 成绩分析表 TO PRINTER PROMPT PREVIEW