动态建立 表 疑问---简单

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  table1.Close;
  table1.TableName:='bb';
  table1.TableType:=ttparadox;  table1.FieldDefs.Clear;
  table1.FieldDefs.AddFieldDef.DataType:=ftinteger;
  table1.FieldDefs.AddFieldDef.Name:='col1';
  table1.FieldDefs.Add('col2',ftstring,0,false);
  table1.FieldDefs.Add('col3',ftstring,0,false);  table1.IndexDefs.Clear;
  table1.IndexDefs.Add('col1_index','col1',[ixprimary]);  table1.CreateTable;
  table1.Open;
end;为什么这样不行？

Answer 1

fstring类型长度不能为0，设完长度试一下。

Answer 2

你查一下关于createtable的帮助，介绍得挺详细。

Answer 3

我也加过了databasename，还是一样，没用。