回复 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
