Foxtable(狐表)用户栏目专家坐堂 → [求助] SQL 问题(新手)


  共有3914人关注过本帖树形打印复制链接

主题:[求助] SQL 问题(新手)

帅哥哟,离线,有人找我吗?
leonardchen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:103 威望:0 精华:0 注册:2021/8/23 13:06:00
[求助] SQL 问题(新手)  发帖心情 Post By:2021/8/23 23:34:00 [只看该作者]

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("报修产品序列号")

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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编辑过]

 回到顶部