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