以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多表导出与合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150244)

--  作者:133198609
--  发布时间:2020/5/25 10:13:00
--  多表导出与合并
表1,表2

我们单表操作是:
导出:
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "表1" \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Export() \'开始导出
End If

合并:
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "表1"
    mg.DataTableName = "表1"
    mg.Merge()
    MessageBox.Show("数据接收完成!")
End If


如果需要同时把两个表导出和合并,该怎么修改?

--  作者:有点蓝
--  发布时间:2020/5/25 10:28:00
--  
这种方式合并数据:http://www.foxtable.com/webhelp/topics/1148.htm

从上一次的最后一行开始填充数据

--  作者:133198609
--  发布时间:2020/5/25 11:09:00
--  
这个也只能一个表一个表的操作,是么?

能否可以同时一键将多个表导出,然后再一键将多个表合并?

--  作者:有点蓝
--  发布时间:2020/5/25 11:10:00
--  
没有办法。只能一个个导