以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将多张内部表导出以同名ACCESS文件里  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164246)
--  作者：cnsjroom
--  发布时间：2021/5/1 1:27:00
--  如何将多张内部表导出以同名ACCESS文件里
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    For Each dt As DataTable In DataTables
        output.show(dt.name)
        ex.SourceTableName =  dt.name \'指定导出表
        ex.filepath = dlg.FileName  \'指定目标文件
        ex.Export() \'开始导出
    Next
End If


 output.show(dt.name)得到如下四个内部表名
js
内部函数表
基础资料表
表A

上述代码运行之后值导出了一个内部表js 其它均没有导出
有没有办法实现内部表所有表名数据都导出为123.mdb里面分别对应四个内部表呢？
[此贴子已经被作者于2021/5/1 1:30:01编辑过]
--  作者：有点酸
--  发布时间：2021/5/1 10:11:00
--  
这样就行了：

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    For Each dt As DataTable In DataTables
        Dim ex As New Exporter
        output.show(dt.name)
        ex.SourceTableName =  dt.name \'指定导出表
        ex.filepath = dlg.FileName  \'指定目标文件
        ex.Export() \'开始导出
    Next
End If
--  作者：cnsjroom
--  发布时间：2021/5/1 11:34:00
--  回复：（有点酸）这样就行了：Dim dlg As New SaveFil...
谢谢  节日快乐