cxGrid:动态设计统计功能

procedure SetcxGridColumnSum(Atbl: TDAMemDataTable; Agrid: TcxGridDBTableView);

var

  csgItem: TcxDataSummaryItem;

  i: Integer;

begin

  //CXGRID统计功能

  with Agrid do

    begin

      OptionsView.Footer       := True;

      OptionsView.GroupFooters := gfAlwaysVisible;

      DataController.Summary.FooterSummaryItems.Clear;

      with DataController.Summary do

        begin

          FooterSummaryItems.Clear;

          BeginUpdate;

          try

            csgItem          := FooterSummaryItems.Add;

            csgItem.ItemLink := Agrid.Columns[0];

            csgItem.Kind     := skNone;

            csgItem.Position := spFooter;

          finally

            EndUpdate;

          end;

        end;

      with Atbl do

        begin

          for i := 0 to FieldCount - 1 do

            begin

              if (Fields[i].Visible) and((Fields[i].DataType = datfloat) or (Fields[i].DataType = datinteger)) then

                begin

                  with DataController.Summary do

                    begin

                      BeginUpdate;

                      try

                        csgItem          := FooterSummaryItems.Add;

                        csgItem.ItemLink := Columns[i + 2];

                        csgItem.Kind     := skSum;

                        csgItem.Position := spFooter;

                      finally

                        EndUpdate;

                      end;

                    end;

                end;

            end;

        end;

      DataController.Summary.FooterSummaryValues[0] := '合计：'

    end;

end;