多表导成1个ACCESS文件如何实现？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大概就是这样：

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.DSB "   '设置筛选器
dlg.title= "生成上报文件"
dlg.OverwritePrompt = True '对于已经存在的文件名,是否出现覆盖警告
dim Names() As String = {"表A","表B","表C"}
If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮
    If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
        FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
    For Each nm As String In Names
        Dim ex as New Exporter
        ex.SourceTableName = nm   '指定导出表
        ex.Format = "Access"   '指定导出文件格式
        ex.PassWord = "TZX_GWY_JT_8888" '用此属性指定目标文件的密码
        ex.filepath = dlg.filename    '指定目标文件
        ex.NewTableName = nm '指定导出后的表的名称
        ex.Export()    '开始导出数据
        MessageBox.Show("上报数据生成完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    Next
End If

主题：多表导成1个ACCESS文件如何实现？谢谢