主题：提取需要行的问题

各位老师:请教一个问题如下

意思是在数据列中只要包含有我的标准列中的任意一个数字的行(可以是1,也可以是2、3）,都需要提取数据列中的该行，请各位老师指教！

 比如代码可以这样写

 dim drs as list(of datarow) = Datatables("表A").select("数据 like '*a*' or 数据 like '*b*'")

 又或者，这样

 for each 标准

     for each 每一行

         '比较

     next

 next

前后加个逗号，把数据范围固定  再查询，

Dim drs As List(of DataRow) = DataTables("表A").Select("','+ [数据] +','  like '%,1,%' or  ','+ [数据] +','  like '%,2,%'")

两位老师,感谢指点,但我的标准列是变量,不是固定的1,2,3,请问在变量的情况下,怎么样才能提取相关的行呢?

Dim str As String = "1,2,6"
Dim str1() As String = str.Split(",")
Dim str2 As String = "',' + [列名] + ','"
Dim Filter As String = str2 & "like '%," & str1(0) & ",%'"
For i As Integer =1 To  str1.Length - 1
    Filter = Filter & " or " & str2 & "like '%," & str1(i) & ",%'"
Next

Dim drs As List(of DataRow) = DataTables("表名").Select(Filter)
For Each dr As DataRow In drs
    Output.show(dr("列名"))
Next

谢谢逛逛:您太牛了!

If e.DataCol.Name = "第一列" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    For Each s As String In DataTables("表B").DataRows(0)("第一列").Split(",")     '取标准。
        For Each s1 As String In e.DataRow(e.DataCol).Split(",")
            If s = s1 Then
                e.DataRow("第二列") = "OK"
                Exit For
            End If
        Next
    Next
End If

= 最可靠，Like和Contains往往有误。