为什么用 DBGridEH 自带函数导出数据后不能打开或内容为空白,

Question

为什么用 DBGridEH 自带函数导出数据后不能打开或内容为空白,

Answer 1

你的代码怎么写的？下面是我的代码，导出没有问题啊！
var
  ExpClass:TDBGridEhExportClass;
  Ext:String;
begin
  if  not DirectoryExists(ExtractFilePath(ParamStr(0))+'Export') then
   begin
     Mkdir(ExtractFilePath(ParamStr(0))+'Export');
   end;
   SaveDialog1.InitialDir:=ExtractFilePath(ParamStr(0))+'Export';
   SaveDialog1.FileName := '导出文件'+'-'+formatdatetime('yyyymmdd',now)+'日期';
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsText; Ext := 'xls'; end;
        2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'html'; end;
        3: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        4: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'txt'; end;
      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
        SaveDBGridEhToExportFile(ExpClass,dbgrideh1,SaveDialog1.FileName,true);
      end;
   end;