文本框有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