以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样进行两列数据比对?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57046)

--  作者:lyzhuo
--  发布时间:2014/9/17 11:44:00
--  怎样进行两列数据比对?

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

如下示例:

 

 

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

张三       李四       张三

李四       王五       李四

小六       张三


--  作者:有点甜
--  发布时间:2014/9/17 11:47:00
--  
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

--  作者:lyzhuo
--  发布时间:2014/9/17 11:48:00
--  
太感谢了,我试试
--  作者:lyzhuo
--  发布时间:2014/9/17 11:51:00
--  
有点甜:你好,这段代码放在哪里呢?不好意思,是不是很愚昧的问题呀
--  作者:Bin
--  发布时间:2014/9/17 11:58:00
--  
设计一个按钮放到CLick事件里
--  作者:有点甜
--  发布时间:2014/9/17 12:00:00
--  
以下是引用lyzhuo在2014-9-17 11:51:00的发言:
有点甜:你好,这段代码放在哪里呢?不好意思,是不是很愚昧的问题呀

 

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