delphi中如何实现DBGrid中的两列数据想减并存入另一列

可参考下面的例子：

 

数据自动计算的实现：“金额”是由“单价”和“工程量”相乘直接得来的，勿需人工输入。

这可在“数据源构件”的onupdatedata例程添加如下代码实现：

procedure TForm1.DataSource1UpdateData(Sender: TObject);

begin

     table1.fieldbyname('金额').asfloat:=table1.fieldbyname('单价').asfloat

     *table1.fieldbyname('工程量').asfloat;

end;