主题：两个表同时导出的问题

老师，最后一个问题：想把两个表A和B同时用Excel文件的格式导出，要求先后出现“另存为”对话框并手动修改保存的文件名、选择保存的路径，该如何修改下面这段代码？（我想少按几下鼠标）

Dim ex as New Exporter
ex.SourceTableName = "A"
ex.SourceTableName = "B"
ex.Format = "Excel"
ex.Fields = "日期,客户,数量,单价"
ex.Export()

Dim tnames() As String = {"表A", "表B"}
Dim dlg As new SaveFileDialog
dlg.Filter = "Excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    For Each tname As String In tnames
        Dim ex As New Exporter
        ex.FilePath = dlg.FileName
        ex.SourceTableName = tname
        ex.Format = "Excel"
        ex.Fields = "日期,客户,数量,单价"
        ex.Export()
    Next
End If

谢谢老师！老师，在导出表A和表B后，想把表A、B、C都删除的话，后面要加什么代码呀？表A和B同时导出后，只能保存在同一个文件里并用sheet1和sheet2分开吗？不能分开保存为两个文件吗？

老师，上面这个问题解决后，我的项目就做好了。辛苦老师了。

在导出表A和表B后，想把表A、B、C都删除的话，后面要加什么代码呀？表A和B同时导出后，只能保存在同一个文件里并用sheet1和sheet2分开吗？不能分开保存为两个文件吗？

Dim tnames() As String = {"表A", "表B"}
Dim dlg As new SaveFileDialog
dlg.Filter = "Excel|*.xls"
For Each tname As String In tnames
    If dlg.ShowDialog = DialogResult.OK Then
        Dim ex As New Exporter
        ex.FilePath = dlg.FileName
        ex.SourceTableName = tname
        ex.Format = "Excel"
        ex.Fields = "日期,客户,数量,单价"
        ex.Export()
    End If
Next

 

删除表参考：

http://www.foxtable.com/help/topics/2122.htm

 

 

谢谢老师！周末加班辛苦！

 老师，下面这段代码 : 在单独执行的时候OK，但在加到其他代码后面执行的时候提示错误，要怎么修改？

 

Dim tnames() As String = {"表A", "表B"}
Dim dlg As new SaveFileDialog
dlg.Filter = "Excel|*.xls"
For Each tname As String In tnames
    If dlg.ShowDialog = DialogResult.OK Then
        Dim ex As New Exporter
        ex.FilePath = dlg.FileName
        ex.SourceTableName = tname
        ex.Format = "Excel"
        ex.Export()
    End If
Next
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()
DataTables.delete("表A")
DataTables.delete("表B")

 

 

此主题相关图片如下：qq截图20150328175236.png

另外，下面这一段要这么写，才能把表C的表名也一起删除？

 

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()