程序代码：

USE Book2
SELECT 成绩 FROM Book2 WHERE !EMPTY(成绩) INTO ARRAY a成绩
i = 1
SELECT Book2
BLANK FIELDS 成绩 ALL 
SCAN
    IF !EMPTY(学生)
        REPLACE 成绩 WITH a成绩[i]
        i = i + 1
    ENDIF
ENDSCAN
GO TOP 
BROWSE