主题：提取重复值的问题

老师，下面代码可以进行单数据的比对，如果是多值的如何进行比对，并提取重复值到另一列

 

-DataColChanged

 

Dim dt As DataTable = DataTables("技术表")
For Each dr As DataRow In dt.DataRows
    If dt.Find("测试数据 = '" & dr("标准数据") & "'") IsNot Nothing Then
        dr("包含数据") = dr("标准数据")
    End If
Next

 

标准数据                  测试数据                  包含数据

123,456,789           111,234,123           123

 

256,547,986           986,369,256           256,986

老师，这里的条件表达式的LIKE很难设置，因为标准数据根据每次实验得到的数据不一样，而测试数据也是变化的，很难设通配符附近的值

 

做了个例子，请老师指导指导 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:技术数据比对.foxdb