以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]取一个控件的值，合成有问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75623)

--  作者：huhu --  发布时间：2015/10/11 18:40:00 --  [求助]取一个控件的值，合成有问题 请帮忙看看红色代码怎么改？ 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

--  作者：大红袍 --  发布时间：2015/10/11 20:01:00 --   MessageBox.Show("此订单编号:\'" & qsrddbh.text & "\'不存在,请确认是否已绑定","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.Question)