以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助] SQL 问题（新手）  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171254)

--  作者：leonardchen --  发布时间：2021/8/23 23:34:00 --  [求助] SQL 问题（新手） 1. 在控件中显示查询结果，没有显示。但加了 messagebox 后，一切正常，删掉 messagebox 后，控件中又不显示了。 2. 查询中，如果表中的数据有空值，就会报错，不能转换成string （表中允许有空值）如何处理 谢谢 Dim shdj As WinForm.ComboBox = e.Form.Controls("CombDJ") Dim bh As String =shdj.value Dim cmd As new SQLCommand cmd.C \'cmd.CommandText="Se ct 客户名称 from {Bxdj} where 报修登记编号=\'" & bh & "\'" cmd.CommandText="Se ct 客户名称,报修产品名称,报修产品序列号 from {Bxdj} where 报修登记编号=\'" & bh & "\'" \'Dim str As String =cmd.ExecuteScalar Dim values =cmd.ExecuteValues \'messagebox.Show(str) If values.count>0 Then messagebox.Show(values("报修产品名称") & values("客户名称") & values("报修产品序列号") ) Dim Hw As WinForm.ComboBox = e.Form.Controls("CombHW") hw.Value=values("报修产品名称") Dim kh As WinForm.ComboBox = e.Form.Controls("Combkh") kh.Value=values("客户名称") Dim xlh As WinForm.TextBox = e.Form.Controls("TextBox6") xlh.Text=values("报修产品序列号")

--  作者：有点蓝 --  发布时间：2021/8/24 8:42:00 --   注意发帖编辑内容的时候，请使用设计模式发，不要使用代码模式发 Dim values =cmd.ExecuteValues \'messagebox.Show(str) If values.count>0 Then     If Values("报修产品名称").tostring <> Nothing Then         Dim Hw As WinForm.ComboBox = e.Form.Controls("CombHW")         hw.text=values("报修产品名称")     End If 如果控件是绑定列的，先看看：http://www.foxtable.com/webhelp/topics/2436.htm [此贴子已经被作者于2021/8/24 8:43:02编辑过]