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