文本框有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
加好友 
发短信
Post By：2015/10/17 11:04:00 [只看该作者]
