table中字段属性的运用问题
hcman 2000-01-28 06:14:00 请看以下:
procedure button1.onclick(sender:object);
var i: Integer;
begin
table2.close;
table2.databasename:='dbdemos';
table2.tablename:=clients.db;
table2.Open;
table1.databasename:='dbdemos';
table1.tablename:=mytable.db;
table1.open;
for i:= 0 to Table2.FieldDefs.Count-1 do
begin
table1.insert;
Table1.FieldByName('字段名').Asstring :=table2.fielddefs.items[i].name;
Table1.FieldByName('长度').Asstring :=table2.fielddefs.items[i].size;
Table1.FieldByName('类型').Asstring :inttostr(table2.fielddefs.items[i].datatype);
Table1.FieldByName('小数位').Asstring :=inttost(table2.fielddefs.items[i].Precision);
end;
Table1.open;
其中table1用dbgrid1显示
问题1:table1的四个字段datatype属性为ftstring;但此时运行后table1的'长度'字段下的内容不正确
问题2: 当table1的字段设置成ftinteger时,此字段的size属性不能成功输入提示:invaild field size
问题3:如何将table2中各字段的'类型'插入table1;