cxgrid将合计类别为sum值为零的列隐藏

procedure Tyjcy_mx_win.MenuItem2Click(Sender: TObject);

var i,j:integer;

flist,flist1:tstringlist;

  ASummary: TcxDataSummary;   

  FooterSummaryItems:TcxDataFooterSummaryItems;

str:string;

begin

flist:=tstringlist.Create;

flist1:=tstringlist.Create;

for i:=0 to cxGrid1DBTableView1.ColumnCount-1  do 

flist.Add(cxGrid1DBTableView1.Columns[i].Caption);

 ASummary := cxgrid1.FocusedView.DataController.Summary;

  FooterSummaryItems:=asummary.FooterSummaryItems;

 for i := 0 to FooterSummaryItems.Count - 1 do  

 begin 

   if TcxGridTableSummaryItem(FooterSummaryItems[i]).Column.Summary.FooterKind=sksum then

    flist1.Add(TcxGridTableSummaryItem( FooterSummaryItems[i] ).Column.Caption+'sksum');

   if TcxGridTableSummaryItem(FooterSummaryItems[i]).Column.Summary.FooterKind=skcount then

    flist1.Add(TcxGridTableSummaryItem( FooterSummaryItems[i] ).Column.Caption+'skcount');  

    

     if   TcxGridTableSummaryItem(FooterSummaryItems[i]).Column.Summary.FooterKind=sksum then 

     

          if   asummary.FooterSummaryValues[i]=0 then

          begin

            j:= flist.IndexOf(TcxGridTableSummaryItem(FooterSummaryItems[i]).column.Caption);

         if j<>-1 then  cxGrid1DBTableView1.Columns[j].Visible:=false;

        end;

          

      end;