For Each dc As DataCol In DataTables("表a").datacols If DataTables("表B").datacols.Contains(dc.name) = false Then msgbox("表B没有列 -> " & dc.name) End If Next For Each dc As DataCol In DataTables("表b").datacols If DataTables("表a").datacols.Contains(dc.name) = false Then msgbox("表a没有列 -> " & dc.name) End If Next
|