您的位置:首页 > 其它

在DBGrid中计算两个字段值的乘积!

2004-07-02 11:24 295 查看
procedure Tfrmfy.DBGridEh4KeyPress(Sender: TObject; var Key: Char);
var
strziduan1, strziduan2:string;
begin
if key=#13 then
begin
Flatbutton5.Click;
if(DBGridEh4.SelectedField.FieldName='xc_cishu')or(DBGridEh4.SelectedField.FieldName='xc_danjia')then
begin
try
strziduan1:=DBGridEh4.DataSource.DataSet.FieldValues['xc_cishu'];
strziduan2:=DBGridEh4.DataSource.DataSet.FieldValues['xc_danjia'];
DBGridEh4.DataSource.DataSet.FieldValues['xc_heji']:=floattostr((strToint (strziduan1)*strTofloat(strziduan2)));
except
showmessage('请将数据填写完整!');
exit;
end;
end;
end;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: