USE s:\原数据表.dbf
n=RECCOUNT()
COPY STRUCTURE EXTENDED TO Fi
USE fi in 0
FOR i =1 to n GO i IF i>RECCOUNT("fi") APPEND BLANK in fi REPLACE Field_type with "C",field_len with 10 in fi ENDIF GO i in fi REPLACE fi.field_name with a
NEXT
USE in fi
CREATE新表 from fi in 0
USE s:\原数据表.dbf in 0
APPEND BLANK
FOR i = 1 to n fn=FIELD(i) GO i in 原数据表 REPLACE (FIELD(i)) with 原数据表.b
NEXT