如何动态建立一个新字段

Question

用alter table table1
add
fieldname char(8)

Answer 1

var
 Field:TField;
begin
 if DataSet.Active then
    DataSet.Close;
    Field:=TStringField.Create(DataSet);    Field.FieldName:='Lookup';
    Field.FieldKind:=fkLookup;
    Field.LookupDataSet:=DataSet2;
    Field.KeyFields:='ClientDataSet1Field7';
    Field.LookupKeyFields:='key1';
    Field.LookupResultField:='rs2';
      Field.DataSet:=DataSet;
    DataSet.Fields.Add(Field);
    DataSet.Open;
这段代码虽然是使用地ClientDataSet但是对于所有地DataSet地子类都适用!

Answer 2

不用SQL，没这样简单吧？用代码好象不行，只有在设计期加一个字段，然后在
DataSet.OnCalcFields事件里写代码。

Answer 3

manboo(横刀卫道≈≡仁者无敌√喜欢（⊙）(⊙）)的方法应该可以的
或者直接使用dataset的fieldsdef属性添加字段：
with dataset.fieldsdef do
begin
  fieldname := 
  fieldtype :=
  required :=
end;