delphi數據列在第一行插入總計

空的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;