Z
z_w_q
Unregistered / Unconfirmed
GUEST, unregistred user!
ADO能否像BDE的TTable一样创建表(如下)
with FieldDefs do
begin
Clear;
for i:=dm.Xmb.FieldCount-1-2+1-1 to dm.Xmb.FieldCount-1-1 do
with AddFieldDef do
begin
name:=dm.Xmb.FieldDefs.Items.Name;
datatype:=ftBCD;
size:=dm.Xmb.FieldDefs.Items.Size;
end;
end;
CreateTable;
with FieldDefs do
begin
Clear;
for i:=dm.Xmb.FieldCount-1-2+1-1 to dm.Xmb.FieldCount-1-1 do
with AddFieldDef do
begin
name:=dm.Xmb.FieldDefs.Items.Name;
datatype:=ftBCD;
size:=dm.Xmb.FieldDefs.Items.Size;
end;
end;
CreateTable;