|
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("报修产品序列号")
|
加好友 
发短信
Post By：2021/8/23 23:34:00 [显示全部帖子]
