你想怎么比较,然后怎样显示结果?
For Each dr As DataRow In DataTables("A").DataRows
Dim fdr As DataRow = DataTables("B").Find("id = '" & dr(id) & "'")
If fdr IsNot Nothing Then
End If
Next