delphi数据列在第一行插入总计

最新推荐文章于 2022-11-14 15:44:24 发布

无名小卒菜

最新推荐文章于 2022-11-14 15:44:24 发布

阅读量391

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi Dataset insert

本文链接：https://blog.youkuaiyun.com/weixin_39428938/article/details/88819428

Delphi 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种在空的或已存在的Dataset中进行数据插入的方法。对于空的Dataset可以直接使用firstappend来实现；对于非空Dataset，则可以通过创建临时Dataset来计算特定字段的总和，并将该值插入到原始Dataset的第一行。

空的Dataset直接first append就可以实现。

不为空的Dataset，根据Dataset的值求和，显示在第一列。

if   fcds1.RecordCount >0 then
     begin
       fcdsTemp := TfwClientDataset.Create(nil);
       fcdsTemp.CreateFieldsFromDataSet(fcds1);
       fcdsTemp.Open;
       fcdsTemp.Insert;
       fcdsTemp.FieldByName('MONTH_TAI_CI').AsFloat  := TbsUtilGrid.GetFieldSum(fcds1,'MONTH_TAI_CI');
       fcds1.First;
       fcds1.Insert;
       fcds1.FindField('MONTH_TAI_CI').AsFloat  := fcdsTemp.FieldByName('MONTH_TAI_CI').AsFloat;
       fcds1.Post;
       fcdsTemp.Free;
     end;