DBGrid 表格间数据自动计算 自带的DBGrid,数据集为ClientDateset 要实现其中一个自段值为前几个字段的计算结果,怎么实现啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在提交之前作计算,BeforePost事件里写代码:procedure TForm1.ClientDataSet1BeforePost(DataSet: TDataSet);begin DataSet.FieldByName('合计字段名').AsFloat := DataSet.FieldByName('字段1').AsFloat + DataSet.FieldByName('字段2').AsFloat+ {.....} DataSet.FieldByName('字段n').AsFloat;end; 是不是你某一个字段的为NULL值 那你可以在ClientDataSet里加一个计算字段,然后在ClientDataSet.OnCalcFields事件里写就可以了procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);begin DataSet.FieldByName('合计字段名').AsFloat := DataSet.FieldByName('字段1').AsFloat + DataSet.FieldByName('字段2').AsFloat+ {.....} DataSet.FieldByName('字段n').AsFloat;end; 我测试的怎么都不行啊啊?DataSet.FieldByName('合计字段名').AsFloat:=55;这样直接赋值都显示不出来 各位帮忙看看发往串口的数据时如何校验的? 修改打印预览内容 问个比较烦的算法问题,请大家帮忙 问两个挺简单的问题,急,在线等!!! 哪有delphi下载呀? 怎样简单实现access数据库导出为excel文件?excel文件再导入数据库?~~~~~~~~~~~~~~~~~~~~各位大侠帮帮忙:) 怎样使程序的界面可以随操作系统的分辨率调整而调整. Bpl包开发问题,Bpl包调用报错!请大家帮我分析下原因,初学者,先谢过了! 请问如何在本站开发文档中搜索我需要的文档? 急求大佬帮忙做道题!!! 主程序如何知道系统单击鼠标事件?(下面程序如何修改) 密码修改问题
procedure TForm1.ClientDataSet1BeforePost(DataSet: TDataSet);
begin
DataSet.FieldByName('合计字段名').AsFloat :=
DataSet.FieldByName('字段1').AsFloat +
DataSet.FieldByName('字段2').AsFloat+
{.....}
DataSet.FieldByName('字段n').AsFloat;
end;
procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('合计字段名').AsFloat :=
DataSet.FieldByName('字段1').AsFloat +
DataSet.FieldByName('字段2').AsFloat+
{.....}
DataSet.FieldByName('字段n').AsFloat;
end;
这样直接赋值都显示不出来