主题：提取重复值的问题

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

 

-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