程序代码:
SET SAFETY OFF SET ENGINEBEHAVIOR 70 CLOSE DATABASES CREATE TABLE ls (xm c(6)) SELECT 0 USE jsrkb ALIAS rk FOR i=3 TO FCOUNT() SCAN cfm=EVALUATE(FIELD(i)) SELECT ls APPEND BLANK REPLACE ls.xm WITH cfm SELECT rk ENDSCAN ENDFOR SELECT * from ls WHERE !EMPTY(xm) GROUP BY xm INTO dbf jsmd SELECT jsmd brow