如何在求DBGrid中兩個字段的乘值 例如 我在DBEdit1中輸入單價在DBEdit2中輸入數量,金額=單價*數量,如何求得金額的值? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 strtofloat(dbedit1.text)*strtofloat(dbedit2.text) dbedit3.text:=floattostr( strtofloat(dbedit1.text)*strtofloat(dbedit2.text) ); 在金额字段的OnChange里头处理:procedure TFmXXX.OnCashFieldChange(sender: TField);begin if adsData.State=dsBrowse then adsData.Edit; adsData['金额'] := adsData.FieldByName('数量').AsFloat*adsData.FieldByName('单价').AsFloat;end; 不好意思,纠正一下,应该是在数量和单价的 OnChange 里头处理。 为何客户端必需得在服务端之后启动 分不多了,再开一贴,问dll问题 100分求 李维 的《Inside VCL(深入核心——VCL架构剖析)》的电子版! 开发的容器控件,如何限定容器中允许添加的子控件类型? 我觉得Delphi和VB比起来优势不是很明显啊。 DBGRID的一个问题 关于Delphi中的嵌入式语句的一个小问题?? 如何判断客户端有没有安装打印机? 哪里有确实能用的delphi5啊? 关于ToolBar的自定义问题 B/S和C/S结构的结合使用设计的新思路[支持单机,局域网,互连网],欢迎大家测试Demo. 已收集编程资料网站列表(共享一下)
procedure TFmXXX.OnCashFieldChange(sender: TField);
begin
if adsData.State=dsBrowse then adsData.Edit;
adsData['金额'] := adsData.FieldByName('数量').AsFloat*adsData.FieldByName('单价').AsFloat;
end;