Foxtable(狐表)用户栏目专家坐堂 → [求助]如何把文本框输入不同的值区分出来。


  共有2558人关注过本帖树形打印复制链接

主题:[求助]如何把文本框输入不同的值区分出来。

帅哥哟,离线,有人找我吗?
huhu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1182 积分:8225 威望:0 精华:0 注册:2015/3/30 10:44:00
[求助]如何把文本框输入不同的值区分出来。  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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


 回到顶部