- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 两个表同时导出的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66028)
-- 发布时间：2015/3/27 19:09:00
-- 两个表同时导出的问题
老师，最后一个问题：想把两个表A和B同时用Excel文件的格式导出，要求先后出现“另存为”对话框并手动修改保存的文件名、选择保存的路径，该如何修改下面这段代码？（我想少按几下鼠标）
Dim ex as New Exporter
ex.SourceTableName = "A"
ex.SourceTableName = "B"
ex.Format = "Excel"
ex.Fields = "日期,客户,数量,单价"
ex.Export()
-- 发布时间：2015/3/27 19:21:00
--
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
-- 发布时间：2015/3/27 19:41:00
--
谢谢老师！老师，在导出表A和表B后，想把表A、B、C都删除的话，后面要加什么代码呀？表A和B同时导出后，只能保存在同一个文件里并用sheet1和sheet2分开吗？不能分开保存为两个文件吗？
-- 发布时间：2015/3/27 20:03:00
--
老师，上面这个问题解决后，我的项目就做好了。辛苦老师了。
-- 发布时间：2015/3/27 20:15:00
--
在导出表A和表B后，想把表A、B、C都删除的话，后面要加什么代码呀？表A和B同时导出后，只能保存在同一个文件里并用sheet1和sheet2分开吗？不能分开保存为两个文件吗？
-- 发布时间：2015/3/28 10:00:00
--
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
-- 发布时间：2015/3/28 10:05:00
--
删除表参考：
http://www.foxtable.com/help/topics/2122.htm
-- 发布时间：2015/3/28 11:09:00
--
谢谢老师！周末加班辛苦！
-- 发布时间：2015/3/28 18:02:00
--
老师，下面这段代码 : 在单独执行的时候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
-- 发布时间：2015/3/28 18:20:00
--
另外，下面这一段要这么写，才能把表C的表名也一起删除？
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
.DeleteTable("表C")
End With
Builder.Close()