[求助]取一个控件的值，合成有问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请帮忙看看红色代码怎么改？

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

主题：[求助]取一个控件的值，合成有问题