主题：怎样进行两列数据比对？

假如我的表里有两列，一列是A公司的顾客信息，一列是B公司顾客信息，怎样在C列里列出重复的人员名单呢？

如下示例：

 

 

A公司顾客信息　　B公司顾客信息　　C列（重复人员名单）

张三　　　　　　　李四　　　　　　　张三

李四　　　　　　　王五　　　　　　　李四

小六　　　　　　　张三

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.DataRows
    If dt.Find("第二列 = '" & dr("第一列") & "'") IsNot Nothing Then
        dr("第三列") = dr("第一列")
    End If
Next

太感谢了，我试试

有点甜：你好，这段代码放在哪里呢？不好意思，是不是很愚昧的问题呀

设计一个按钮放到CLick事件里

 

可以单独做一个按钮，把代码填入按钮。