动态生成计算字段

[andykwok]

本人在动态生成计算时候，提示不能为计算字段的提示！
JET 4.0 -> ACCESS 2000
DELPHI 5.0
最好有源码。希望各位能帮在下一忙！谢谢！

[lanren_me]

动态创建删除字段


procedure TForm1.Button2Click(Sender: TObject);
var
T: TStringField;
begin
Query1.Close;
T := TStringField.Create(Self);
T.FieldName := 'CO_NAME';
T.Name := Query1.Name + T.FieldName;
T.Index := Query1.FieldCount;
T.DataSet := Query1;
Query1.FieldDefs.UpDate;
Query1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
TC: TComponent;
begin
TC := FindComponent('Query1CO_NAME');
if not (TC = nil) then begin
Query1.Close;
TC.Free;
Query1.Open;
end;
end;

[andykwok]

對不起，這些天都很忙，沒有上CSDN！
我指的是計算字段，它的提示信息是"不能為計算字段和查找字段！"。