ADOQuery.Close; ADOQuery.FieldDefs.Add('ID', ftAutoInc, 0, True); ... ADOQuery.FieldDefs.Add('Calc', ftBoolean); ADOQuery.FieldByName('Calc').FieldKind := fkCaculated; // 运行出错，提示找不到该字段 ======================================== 不知道要如何才能动态添加计算类型的字段？

試試:

var
   F: TIntegerField;
begin
  with ADOQuery1 do 
  begin
    Close;
    F := TIntegerField.Create(ADOQuery1);
    F.FieldName := 'Calc';
    F.Calculated := true;
    F.DataSet := ADOQuery1;
    FieldDefs.Update
  end;
end;

[/code]