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

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