ADOTable只是一个类名而已。那么：
DataSet.Fields.Remove(DataSet.Fields[3]);呢？
你不要告诉我又是DataSet不是Table,它们都是从TDataSet继承来的Fields.Remove(AField: TFields);
是TDataSet.fields的方法，所以两个都可用。你把他改一下不就可以了（扯远了）。
第一次：
Table.FieldDefs.Add('第一次', ftCalculated, 0, True);
为Table.OnCalcFields事件指定一个处理方法
第二次：
for i := 0 to Table.FieldCount - 1
begin
if Table.Fields.DataType = ftCalculated then
beign
Table.Fiesds.Remove(Table.Fields);
end;
重复第一步，建立新的计算字段，指定计算方法。
end;
