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;