动态添加字段出错(50分)

if ADOQuery1.FindField('ABC') <> nil then exit;
ADOQuery1.Close;
with TStringField.Create(ADOQuery1) do
begin
FieldName := ADOQuery1;
DisplayLabel := 'ABC';
FieldKind := fkData;
Name := ADOQuery1.Name + FieldName;
index := ADOQuery1.FieldCount;
DataSet := ADOQuery1;
end;
ADOQuery.open;
代码写在Buttonclick事件里.
提示找不到'ABC'字段.

你在Adoquery中添加了字段，表里却没有，ADOQuery.open当然会提示找不到‘ABC’了。

如果对应的adc字段数据库没有，不能自建并且open。
FieldName := ADOQuery1; //错了吧？
with TStringfield.Create(cds) do
begin
FieldName := 'ab';
Name := 'abc';
DisplayLabel := 'abc';
FieldKind := fkData;
Index := cds.FieldCount;
dataset := cds;
end;
这是我写的，没错误

多人接受答案了。