Delphi CxGrid控件轉Excel增長合計

第一步、首先設置cxgridview中footer爲true

 

 

第二步、設置須要合計的列以及屬性設置

 

 

第三步、單元引用 cxGridExportLink 使用其中的方法

procedure TFrmYpcgJh.BtnExcelClick(Sender: TObject);
var
pathName: string;
begin
// ExportExcelcxGrid(cxgYpcg, '藥品採購計劃單' + FormatDateTime('YYYYMMDD', DtpCgrq.Date));
SaveDialog1.Title := '選擇路徑'; //設置瀏覽對話框標題名
SaveDialog1.Filter := '文本文件(*.xls)|*.xlsx'; //設置保存文件的擴展名
SaveDialog1.DefaultExt := '.xlsx'; //爲保存文件名自動添加擴展名
SaveDialog1.FileName := '藥品採購計劃單' + FormatDateTime('YYYYMMDD', DtpCgrq.Date);
if SaveDialog1.Execute then
begin
pathName := Trim(SaveDialog1.FileName); //獲取保存路徑
ExportGridToExcel(pathName, cxgYpcg, True, True);
end;
end;