逐个读出再写入也不难。
程序代码:
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