朋友，試試EXCEL的復制-選擇性粘貼-轉置吧。
事半功倍。

**字段名首字符不能是数字，所以新表字段前加了“H”

SELECT 1
USE 原表
COPY TO TEMPB FIELDS 学号
SELECT 2
USE tempb
ALTER TABLE TEMPB ADD COLUMN h01 C(2)
ALTER TABLE TEMPB ADD COLUMN h02 C(2)
ALTER TABLE TEMPB ADD COLUMN h03 C(2)
INDEX ON 学号 to indxh
TOTAL to 新表 on 学号
USE 新表 in 2
FOR i= 1 to RECCOUNT(1)
    GO i in 原表
    m_x=原表.课程号
    m_zd1="h"+PADL(&m_x,2,"0")
    REPLACE &m_zd1 with 原表.等级 for 新表.学号=原表.学号 
NEXT

既然不看，留着何用，删了！