以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何把文本框输入不同的值区分出来。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75908)
--  作者：huhu
--  发布时间：2015/10/17 11:04:00
--  [求助]如何把文本框输入不同的值区分出来。
文本框有A,B,C3个值，如果A，B，C都找到，那么正常加载A,B,C的数据，假如只找到A和B，C的没找到，那么我希望加载A,B数据时，同时弹出msgbox，提示C的数据不存在。
Dim qsrlsbbbh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
If qsrlsbbbh.text = "" Then
    MessageBox.show("请选择或者输入临时版本编号","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    Dim drs As List(Of DataRow) = DataTables("临时版本跟踪表").SQLSelect("临时版本编号 in (\'" & qsrlsbbbh.text.replace(",", "\',\'") & " \')")
    If drs.Count = 0 Then
        MessageBox.Show("临时版本编号:\'" & qsrlsbbbh.text & "\'不存在,请核查","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Else
        DataTables("临时版本跟踪表").loadFilter="临时版本编号 in (\'" & qsrlsbbbh.text.replace(",", "\',\'") & " \')"
        DataTables("临时版本跟踪表").load
        SaveConfigValue("lsbb", e.Form.Controls("CheckedComboBox1").Text)
        SaveConfigValue("loadfilter", DataTables("临时版本跟踪表").loadFilter)
    End If
End If
--  作者：Hyphen
--  发布时间：2015/10/17 12:05:00
--  


For Each s As String In qsrlsbbbh.text.Split(",")
    If DataTables("临时版本跟踪表").Compute("Count([_Identify])", " 临时版本编号 = \'" & s & "\' ") = 0 Then
        msgox( s & "的数据不存在")
    End If
Next