主从表都是ltBatchOptimistic,主表[数量] = sum 从表[数量] 本帖最后由 zhangjing1979666 于 2010-03-31 14:13:57 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以使用控件的自动计算功能,例如:DBGridEh的summary统计列或者cxgrid的summary。自己计算的效率估计会比较低。 若是計算字段,直接下語句算出來。若是數據字段,說明里面的數據已經計算好了。在已經有總計的情況下,只要在從表 數量 Field.OnsetText,執行如下:var OrignValue : Integer;begin OrignValue := Field.AsInteger; MasterTable.FieldByName('數量').asInteger := MasterTable.FieldByName('數量').asInteger - OrignValue; Field.AsInteger := IntToStr(Text); MasterTable.FieldByName('數量').asInteger := MasterTable.FieldByName('數量').asInteger + Field.AsIntegerend; 你用delphi开发什么? 关注,如何获取Activex控件中的返回值 如何实现即时更新ListView显示内容! 求救:扫描组件问题,40分奖赏 着急;怎么让MDI子窗口Showmodal出来的窗口不在任务栏产生图标 请问谁有手机归属地资料的数据库啊? MIDAS 问题 很初级问题(关于数据库),请各位帮忙! 关于安装ehlib 请说一说Paradox数据库文件扩展名的含义 在delphi中打开多个网页,如何在同一个浏览器中? sf
自己计算的效率估计会比较低。
var
OrignValue : Integer;
begin
OrignValue := Field.AsInteger;
MasterTable.FieldByName('數量').asInteger := MasterTable.FieldByName('數量').asInteger - OrignValue;
Field.AsInteger := IntToStr(Text);
MasterTable.FieldByName('數量').asInteger := MasterTable.FieldByName('數量').asInteger + Field.AsInteger
end;