dbgrideh导出到excel的错误如何解决

采用ADO+ADOQUERY+DBGRIDEH导出到EXCEL里  
  代码如下:  
  var   ExpClass:TDBGridEhExportClass;  
          Ext:String;  
  begin  
    SaveDialog1.FileName   :=   'file1.xls';  
      if   (ActiveControl   is   TDBGridEh)   then  
          if   SaveDialog1.Execute   then  
          begin  
              case   SaveDialog1.FilterIndex   of  
                  1:   begin   ExpClass   :=   TDBGridEhExportAsText;   Ext   :=   'txt';   end;  
                  2:   begin   ExpClass   :=   TDBGridEhExportAsCSV;   Ext   :=   'csv';   end;  
                  3:   begin   ExpClass   :=   TDBGridEhExportAsHTML;   Ext   :=   'htm';   end;  
                  4:   begin   ExpClass   :=   TDBGridEhExportAsRTF;   Ext   :=   'rtf';   end;  
                  5:   begin   ExpClass   :=   TDBGridEhExportAsXLS;   Ext   :=   'xls';   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,TDBGridEh(ActiveControl),  
                            SaveDialog1.FileName,False);  
              end;  
          end;  
    end;  
   
  编译以后选择保存的类型是空无法选择，我看EHLIB的demo也是这样写的，点保存无法保存。赐教大家，最好能贴出代码 问题点数：50、回复次数：2Top

1 楼gerrylc（lc）回复于 2006-12-02 12:03:49 得分 25

SaveDialog1的Filter属性填上文件类型试试看Top

2 楼ron_xin（星雨）回复于 2006-12-02 12:07:33 得分 25

在   SaveDialog1里设置FilterTop

相关问题

• 帖主：linhui780705
• gerrylc
• ron_xin

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载