请帮忙看看红色代码怎么改？
Dim qsrddbh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox2")
If qsrddbh.text = "" Then
MessageBox.show("请选择或者输入订单编号","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
Dim fdr As DataRow = DataTables("商务下单查询表").SQLFind("订单编号 in ('" & qsrddbh.text.replace(",", "','") & " ')")
If fdr Is Nothing Then
MessageBox.Show("此订单编号:" & '" & qsrddbh.text & "' & "不存在,请确认是否已绑定","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.Question)
Else
DataTables("商务下单查询表").loadFilter="订单编号 in ('" & qsrddbh.text.replace(",", "','") & " ')"
DataTables("商务下单查询表").load
End If
SaveConfigValue("dd", e.Form.Controls("CheckedComboBox2").Text)
SaveConfigValue("filter", Tables("商务下单查询表").Filter)
End If
加好友 
发短信
Post By：2015/10/11 18:40:00 [显示全部帖子]
