Dim mg As New Merger mg.SourcePath = "e:\项目管理.accdb" mg.SourceTableName = "工程概况" mg.DataTableName = "工程概况" mg.Merge() For i As Integer = 1 To 2 mg.SourceTableName = "手续办理" mg.DataTableName = "手续办理" mg.Merge() Next For i As Integer = 1 To 3 Then mg.SourceTableName = "人员情况" mg.DataTableName = "人员情况" mg.Merge() Next