主题：上报接收多表的问题？

上报接收多表的问题？

 

帮助里接收下级单位上报是接收一个表，如果ACCESS文件里有多个表，如何写代码接收？

帮助里：

 

For Each File As String In Filesys.GetFiles("c:\temp")
    If File.EndsWith(".mdb") '如果后缀名是mdb,说明此文件是access格式
        Dim mg As New Merger
        mg.SourcePath = file
        mg.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
        Filesys.DeleteFile(File) '合并后删除文件
    End If
Next

 

 

如果我是多个表，且表间有关联，如下代码对吗？：

For Each File As String In Filesys.GetFiles("c:\temp")
    If File.EndsWith(".mdb") '如果后缀名是mdb,说明此文件是access格式
        Dim mg As New Merger
        mg.SourcePath = file
        mg.SourceTableName = "表1"
        mg.DataTableName = "表1"
        mg.Merge()
        mg.SourceTableName = "表2"
        mg.DataTableName = "表2"
        mg.Merge()
        mg.SourceTableName = "表3"
        mg.DataTableName = "表3"
        mg.Merge()

        Filesys.DeleteFile(File) '合并后删除文件
    End If
Next

代码没看出问题，注意一点：先合并父表，再合并子表。

合并父表后，子表合并会多出好些记录，不明白原因

你的代码子表只合并了一次，如果有多余的，说明来源就有多余。

先检查一下，搞不定的话，可以做个例子传上来看看。