dbgrideh怎么保存多表头的数据到excel中?

Question

dbgrideh怎么保存多表头的数据到excel中?

Answer 1

procedure TFDataSearch.BBTN_ExportClick(Sender: TObject);
{-------------------------------------------------------------------------------
 数据导出
--------------------------------------------------------------------------------}
var
  ls_fileName : String;
  ls_dbg : TDBGridEh;
begin
  //  // select
  
  ls_dbg := DBGridEh1
  if ls_dbg.DataSource.DataSet.RecordCount= 0 then
  begin
    ShowMessage('没有记录,无法导出!');
    abort;
  end;  if SaveDialog1.Execute then
     ls_fileName := SaveDialog1.FileName
  else
    exit;
  //
  SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,ls_dbg,ls_FileName,True);
  ShowMessage('数据导出成功');
end;