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

商务下单查询表的数据都是从临时版本跟踪表获取的。过滤条件就是，临时版本跟踪表的“状态”列为Published的行加载到商务下单查询表内。

也就是说商务下单查询表行都是Published的。

在商务下单查询表的临时版本编号查询文本框，输入的为published的临时版本编号，都是可以查询的。

现在希望能做的更友好一点。比如我输入了不是published的临时版本编号，希望能提示此临时版本编号现处于的状态。

如果我输入了不存在的临时版本编号，那么应该提示此编号不存在。

这个怎么做？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统26.rar

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

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

 3、这样就能查全部了

你的意思是商务下单查询表不要区分状态，那就是和临时版本跟踪表一样了。

但问题是checkcombobox复选组合框的下拉列表都已应该为Published的临时版本编号，不要出现说有的临时版本编号，只有状态为Published的临时版本编号。

只不过希望输入的文本框不受限制，可以随便输入临时版本编号，然后根据输入的值看看它存不存在，存在的话除published后的状态是什么。

 回复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