各位大大,不好意思,又有问题了:

比如我有三个栏位,一个是"数量",一个是"单价",最后一个是"金额",并把"金额"
栏位设成fkCalculated后,当数量或单价变化时,金额也会实时变化.

我现在想要实现的是,我想把金额栏位进行sum,并把数值放到一个label1.caption中,然后也要随时实时显示出来,这可以做到吗?
我的code如下,不过,后面那一段sql却没起作用

procedure Tfm_xhd.ADOTable1CalcFields(DataSet: TDataSet);
begin
adotable1.FieldByName('je').Asfloat := adotable1.FieldByName('dj').Asfloat * adotable1.FieldByName('sl').Asfloat;
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('select sum(je)');
adoquery2.sql.add('from xhdnr_temp1');
adoquery2.open;
label11.caption:=adoquery2.Fields[0].AsString ' 元';
end;

編輯記錄

Why don't  you just select sum(dj*sl) as "je" from table1 in adoquery2?
Then, you still have total amount wihtout using "je" field.

===================引 用 luowy651 文 章==================
各位大大,不好意思,又有问题了:

比如我有三个栏位,一个是"数量",一个是"单价",最后一个是"金额",并把"金额"
栏位设成fkCalculated后,当数量或单价变化时,金额也会实时变化.

我现在想要实现的是,我想把金额栏位进行sum,并把数值放到一个label1.caption中,然后也要随时实时显示出来,这可以做到吗?
我的code如下,不过,后面那一段sql却没起作用

procedure Tfm_xhd.ADOTable1CalcFields(DataSet: TDataSet);
begin
adotable1.FieldByName('je').Asfloat := adotable1.FieldByName('dj').Asfloat * adotable1.FieldByName('sl').Asfloat;
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('select sum(je)');
adoquery2.sql.add('from xhdnr_temp1');
adoquery2.open;
label11.caption:=adoquery2.Fields[0].AsString ' 元';
end;

------
===波士頓夜未眠===
What a wonderful world!!
Jazz up the world with jazz!!
==================

When I am not programming...
you can find me here:
http://www.holy-war.de/EN/World3/bin/?advertiser=63190

感谢楼上大大的关注,我已找到方法了:

procedure Tfm_xhd.ADOTable1CalcFields(DataSet: TDataSet);
begin
adotable1.FieldByName('je').Asfloat := adotable1.FieldByName('dj').Asfloat * adotable1.FieldByName('sl').Asfloat;
end;

procedure Tfm_xhd.DBGrid1ColExit(Sender: TObject);
var i:real;
j:string;
begin
adotable1.first;
i:=0;
while not adotable1.eof do
begin
i:= i adotable1.FieldByName('je').Asfloat;
adotable1.next;
end;
j:=format('%9.2f',[i]);
label1.caption:=j ' 元';
end;