P
pengxiaolin
Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位高手：
我要在程序运行时ACCESS数据库中动态建立一表，方法如下：
with tbxmbyk do
begin
active:=false;
databasename:=tbxmdb.DatabaseName;
tabletype:=tbxmdb.TableType;
tablename:='xm'+inttostr(year)+inttostr(month);
if not tbxmbyk.exists then
begin
fielddefs.assign(tbxmdb.fielddefs);
createtable;
end;
end;
但发现如下问题：
在tbxmdb中，字段je为货币类型，但新建的表tbxmbyk中
字段je为短整型。
如改用以下方法：
if not tbxmbyk.exists then
with fielddefs do
begin
clear;
add('je',ftcurrency,0,false);
createtable;
end;
新建的表中字段je也是短整型。
我所需要的是字段je为access数据库中的贷币类型（或双精度
型两位小数）。
谁能帮我？？？
我要在程序运行时ACCESS数据库中动态建立一表，方法如下：
with tbxmbyk do
begin
active:=false;
databasename:=tbxmdb.DatabaseName;
tabletype:=tbxmdb.TableType;
tablename:='xm'+inttostr(year)+inttostr(month);
if not tbxmbyk.exists then
begin
fielddefs.assign(tbxmdb.fielddefs);
createtable;
end;
end;
但发现如下问题：
在tbxmdb中，字段je为货币类型，但新建的表tbxmbyk中
字段je为短整型。
如改用以下方法：
if not tbxmbyk.exists then
with fielddefs do
begin
clear;
add('je',ftcurrency,0,false);
createtable;
end;
新建的表中字段je也是短整型。
我所需要的是字段je为access数据库中的贷币类型（或双精度
型两位小数）。
谁能帮我？？？