程序代码：

* 原表数据稍做修改（去掉班级中的'.'，初2.1改为初201）
SELECT * FROM (SELECT 班级科目 班级,[语文] 科目,语文 监考人 FROM 源表 ;
UNION ALL SELECT 班级科目,[数学],数学 FROM 源表 ;
UNION ALL SELECT 班级科目,[英语],英语 FROM 源表) A WHERE LEFT(ALLTRIM(班级),3)=[初2] ORDER BY 1 INTO CURSOR T1
SELECT CAST(班级 AS C(5)) 班级,CAST(监考人 AS C(6)) 监考人 FROM T1 GROUP BY 1,2 INTO ARRAY AJKR
SELECT DISTINCT 班级 FROM T1 INTO CURSOR T2
LC=[]
SCAN
    LC=LC+ALLTRIM(班级)+[ C(6)]+IIF(RECNO([T2])<RECCOUNT([T2]),[,],[])
ENDSCAN

CREATE CURSOR 考试安排 (科目 C(6),&LC)
INSERT INTO 考试安排 (科目) SELECT DISTINCT 科目 FROM T1
FOR I=2 TO FCOUNT([考试安排])
    REPLACE ALL (FIELD(I)) WITH AJKR[I-1,2]
ENDFOR
BROWSE