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

2025-03-01 11:00:24

推荐回答（1个）

回答1：

可参考下面的例子：

数据自动计算的实现：“金额”是由“单价”和“工程量”相乘直接得来的，勿需人工输入。
这可在“数据源构件”的onupdatedata例程添加如下代码实现：
procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
     table1.fieldbyname('金额').asfloat:=table1.fieldbyname('单价').asfloat
     *table1.fieldbyname('工程量').asfloat;
end;