主题：如何将access中不同表的相关数据一次性导出到另一access数据库中？

 请教老师：如何将access中不同表的相关数据一次性导出到另一access数据库中？

  如下图所示：

此主题相关图片如下：如何将表1及相关数据导入另一access数据库中.png

我想完成的任务是：将access数据库1中表1的参加项目1的记录及其表2、表3的相关记录一次性导出到access数据库2中。

我写的代码如下：

此主题相关图片如下：11111.png
 

以上代码表1中项目1的相关记录都能导出，但是表2和表3只能导出表1中最后一条的相关记录。

请老师赐教！

Dim dlg as New SaveFileDialog

dlg.Filter= “Access文件|*.mdb”

If dlg.ShowDailog = DialogResult.OK Then

   Dim ex As New Exporter

   Ex.SourceTableName = “表1“

   Ex.filepath = dlg.FileName

   Ex.Filter = “[项目编号] = ‘项目1’”

   Ex.Export()

   Ex = New Exporter

   Ex.SourceTableName = “表2“

   Ex.filepath = dlg.FileName

   For Each blh as DataRow In DataTables(“表1”).DataRows

       Ex.Filter = “[ID] = ‘” & blh(“ID”) & ”’”

   Next

   Ex.Export()

   Ex = New Exporter

   Ex.SourceTableName = “表3“

   Ex.filepath = dlg.FileName

   For Each dr as DataRow In DataTables(“表1”).DataRows

       Ex.Filter = “[ID] = ‘” & dr(“ID”) & ”’”

   Next

   Ex.Export()

End If

   Ex = New Exporter

   Ex.SourceTableName = “表2“

   Ex.filepath = dlg.FileName

   dim s as string = DataTables(“表1”).GetComboListString("ID",“[项目编号] = ‘项目1’”)

   Ex.Filter = “[ID] in (‘” & s.replace("|","','") & ”’)”

   Ex.Export()