2 u011574786 u011574786 于 2017.01.08 11:13 提问

VB 查询为Null,text返回为 指定语句

rs.Open "SELECT * FROM 商品库 where 商品编号 ='" & (商品编号.Text) & "'", mcon, 1, 1

If Not rs.EOF Then
商品编号 = rs.Fields("商品编号").Value & ""
商品名称 = rs.Fields("商品名称").Value & ""
Insert_show
商品编号 = ""
商品名称 = ""
Insert_show
End If

举例查询结果是“香烟”那么,在窗体的商品名称.text控件就显示香烟,如果查询结果是空,那么商品名称.text也就是空,我现在想的就是 如果查询结果是空,那么商品名称.text就显示“查无此商品“,就是返还值为nall,则强制为”查无此商品“
请问,上面那段代码还如何修改?

3个回答

caozhy
caozhy   Ds   Rxr 2017.01.08 11:15

鄙视回答过你了么
if 商品名称 = "" then textbox1.text = ”查无此商品“

u011574786
u011574786 您好,我昨天用您的语句测试了,还是不行,不好意思在麻烦你了。所以重新提问了
11 个月之前 回复
caozhy
caozhy   Ds   Rxr 2017.01.08 11:15

鄙视 -> 不是

u011574786
u011574786   2017.01.08 22:08

If Not rs.EOF Then
商品编号 = rs.Fields("SPBH").Value & ""
商品名称 = rs.Fields("SPMC").Value & ""

Insert_show
Else
商品名称 = ""
If 商品名称 = "" Then 商品名称.Caption = "查无此商品"
Insert_show
mcon.Close
End If

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!