主题：[求助]如何遍历某一列的值，查询某个值是否在这一列值内。

 1、查询表不要设置成Published的，设置成全部的；

 2、项目启动的时候，把查询表filter弄成Published即可；

 3、这样就能查全部了

 回复3楼，那你代码就这样写，具体需求你要看懂代码再改。

Dim qsrlsbbbh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim fdr As DataRow = DataTables("商务下单查询表").SQLFind("临时版本编号 in ('" & qsrlsbbbh.text.replace(",", "','") & " ')")
If fdr Is Nothing Then
    Dim drs As List(Of DataRow) = DataTables("临时版本跟踪表").Select("临时版本编号 in ('" & qsrlsbbbh.text.replace(",", "','") & " ')")
    If drs.Count = 0 Then
        msgbox("单号不存在")
    Else
        Dim str As String = ""
        For Each dr As DataRow In drs
            str &= dr("临时版本编号") & ":" & dr("状态") & vbcrlf
        Next
        msgbox(str)
    End If
Else
    Tables("商务下单查询表").Filter="临时版本编号 in ('" & qsrlsbbbh.text.replace(",", "','") & " ') and 状态 = 'Published'"
   
    SaveConfigValue("lsbb", e.Form.Controls("CheckedComboBox1").Text)
   
    SaveConfigValue("filter", Tables("商务下单查询表").Filter)
End If