主题：提取重复值的问题

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