Delphi格式化cxgrid中footer合计行显示格式

小侃坎

于 2023-11-23 16:26:06 发布

阅读量164

点赞数

文章标签： Delphi

本文链接：https://blog.csdn.net/m0_37866352/article/details/134580599

版权

procedure TtdpOrderTrackingfrom.FormInit;
  var
  i:Integer;
begin
  inherited;

  //footer合计格式化
  begin
   for i := 0 to 29 do
    begin
      if i in [0] then
      begin
        cxgrdMainDBBandedTableView1.DataController.Summary.FooterSummaryValues[i] := '汇总';
      end;
    end;
    // 保存2位小数+%
    for i := 0 to 29 do
    begin
      if i in [3,7,11,13,15,28,29] then
      begin
//TDevEvents.OnFooterSummaryItemsGetText_Perent2为自定义格式;        cxgrdMainDBBandedTableView1.DataController.Summary.FooterSummaryItems[i].OnGetText := TDevEvents.OnFooterSummaryItemsGetText_Perent2;
      end;
    end;
    //整数
    for i := 0 to 29 do
    begin
      if i in [1,2,4,5,6,8,9,10,12,14,16,17,18,19,20,21,22,23,24,25,26,27] then
      begin
        cxgrdMainDBBandedTableView1.DataController.Summary.FooterSummaryItems[i].OnGetText := TDevEvents.OnFooterSummaryItemsGetText_int;
      end;
    end;
  end;
end;