根据选择的字段生成新表（字段顺序可以重新排列）

编号：A0009

功能：1、根据选择的字段生成新表

            2、字段顺序可以重新排列

SET TALK OFF
fn=getfile("dbf")
use &fn
COPY TO temp1
copy to temp2 stru exte
use temp2
alter table temp2 add column FIELD_NO  N(8)
replace  all  FIELD_NO  with  recno()

c_Flds=;
[FIELD_NO      :10  :H='字段序号' ,  ]+;
[FIELD_NAME :20 :R :H='字段名',  ]+;
[FIELD_TYPE :10 :R :H='字段类型',]+;
[FIELD_LEN  :10 :R :H='字段长度',]+;
[FIELD_DEC :10 :R :H='小数位数',]+;
Browse FIELDS &c_Flds  NOAPPEND  TITLE [ 选择和设置;

        打印字段属性，字段序号为0者不打印]

wait "     "

delete  for  FIELD_NO=0

PACK

sort to temp3 on  FIELD_NO/A

use temp3

create temp from temp3

use temp

append from temp1

close all

erase temp1.dbf

erase temp2.dbf
erase temp3.dbf

use temp

Browse