for each dr1 As Datarow in datatables("a").Datarow
if datatbles("b").Find("某个列 = '" & dr1("某个列") & “‘”) Is Nothing Then '如果表B没有
dr2 = DataTables("c").AddNew
dr2(“某列1”) = dr1("某列1")
End if
next