以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  可以一个按钮导出2个TABLE的表吗  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41806)
--  作者：wuxianzuoji41
--  发布时间：2013/10/28 11:02:00
--  可以一个按钮导出2个TABLE的表吗
通过这个方式
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
   dlg.Filter= "excel文件|*.xls" \'设置筛选器
   If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Dim ex As New Exporter    
     ex.SourceTableName ="crm_products"  \'指定导出表
     ex.filepath = dlg.FileName  \'指定目标文件  
     ex.Format = "Excel" \'导出格式为Excel


可以一个按钮导出一个窗口中的2个不同的TABLE的表吗，是要吧以上的内容写上2遍吗 
这样是否要弹出来2个保存窗口，可以一个保存窗口搞定吗
--  作者：狐狸爸爸
--  发布时间：2013/10/28 12:08:00
--  

类似这样，细节你慢慢调整：

 

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName ="crm_products"  \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel
    ex.Export

    ex = New Exporter
    ex.SourceTableName ="第二个表"  \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel
    ex.Export
End If
--  作者：Bin
--  发布时间：2013/10/28 12:08:00
--  
一个保存窗口你要怎么保存? 保存为相同的路径,相同的文件名吗? 那后一个岂不是覆盖前一个了?

还是加个后缀?  文件1  文件2  这样?