这个好像很简单
假设第一列和第二列进行比较,第三列为逻辑型,用于标记对应列是否存在相同值
代码:
For Each dr As DataRow In DataTables("表A").DataRows Dim dr1,dr2 As DataRow dr1 = DataTables("表A").Find("第一列 = '" & dr("第二列") & "'") dr2 = DataTables("表A").Find("第二列 = '" & dr("第一列") & "'") dr("第三列") = dr1 IsNot Nothing Or dr2 IsNot NothingNext