在ADOQUERY中增加一个字段.
我想在ADOQUERY查询结果中增加一个字段计算利息:
var
fld: TField;
begin
with AdoQuery1 do
begin
fld := TField.Create(self);
fld.FieldName := '应付利息';
Fields.Add(fld);
First;
While not eof do
begin
FieldByName('应付利息').Value := CalcInterest(
FieldByName('日期').AsDateTime,Date(),
FieldByName('金额').AsFloat,
FieldByName('月利率').AsFloat);
Next;
end;
……
end;
可是最后赋值时提示错误:“cannot access field '应付利息' as type Variant”
是哪里出的问题呢?