如何动态建立一个新字段

[sherlock]

小弟想在table动态建立一个Look up 的临时字段（不改变数据库内容)，如何用代码实现？
（请给代码）

[Pipi0714]

用alter table table1
add
fieldname char(8)

[foreveryday007]

來遲了

[manboo]

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地子类都适用!

[blazingfire]

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

[cobi]

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

[sherlock]

说详细点好吗？我弄不懂