cxGrid合计忽略重复记录

【属性设置】
1.cxGrid1DBBandedTableView1.OptionsView.FooterMultiSummaries = True;   //如果为False时Footer就只能显示一行

2.双击cxGrid在弹出窗口的Summary页签, 加上要合计的Item并设好各个Item的Column、Format和Kind属性。 如下图

【代码部份】
uses
  cxGridDBTableView;

  private
    lstCust: TStringList;         //存放不同的客户编号记录

procedure TfrmVS.FormCreate(Sender: TObject);
begin
  inherited;
  lstCust := TStringList.Create;  //创建lstCust对象
end;

procedure TfrmVS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(lstCust);    //释放lstCust对象 
  inherited;
end;

procedure TfrmVS.SmartDataSetMap1BeforeOpen(DataSet: TDataSet);
begin
  lstCust.Clear;                  //重新