如何在delphi中动态建立表?

[zh_h]

我想要在delphi中动态的建立一个.DBF的在visual Foxpro下能够打开的表
但它老是报错,"invalid record structure table does not exist.",不知
是怎么回事?代码如下,哪位大哥看一下:
Table1.active:=false;
with Table1 do
begin
DatabaseName:='d:\data' ;
TableName:='t1.dbf';
TableType:=ttFoxpro;
if not Table1.Exists then
begin //建表
with FieldDefs do
begin
clear;
Add('KSH',ftString,14,True);
Add('XM',ftString,8,False);
end;
IndexDefs.Clear;
IndexDefs.Add('','KSH',[ixPrimary]);
CreateTable;
end
end;
Table1.active:=true;
而我把tabletype换成ttdbase,就可以建立,但是这样建成的表在visual foxpro中不能打开.

[ADWARDS00]

我一般用一个adoquery控件，然后把“create table...”写进去，运行一下就可以了

[zh_h]

大哥,能不能清楚的说一下

[ADWARDS00]

我用过两年VFP但是从来没用DELPHI连过VFP的数据库，但是你可以试试这样
建立一个VFP的数据源，（数据库连接的步骤我就不用讲了吧）然后用adoquery控件，然后把“create table...”写进去，运行一下就可以了
create tbale语句应该知道的吧