主题：提取重复值的问题

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

http://www.foxtable.com/webhelp/scr/1647.htm

DataColChanged事件

Select Case e.DataCol.name
    Case "测试数据","标准数据"
        Dim s1 As String = e.DataRow("标准数据")
        Dim s2 As String = e.DataRow("测试数据")
        If s1 = "" OrElse s2 = "" Then
            e.DataRow("包含数据") = Nothing
        Else
            Dim str As String = ""
            Dim ary As String() = s2.split(",")
            For Each s As String In s1.Split(",")
                If array.IndexOf(ary, s) >= 0 Then
                    str &= s & ","
                End If
            Next
            e.DataRow("包含数据") = str.trim(",")
        End If
End Select