设计了一款参数查询的系统，代码如下，但是运行会出现变量未定义或With块未设置的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 设计了一款参数查询的系统，代码如下，但是运行会出现变量未定义或With块未设置的问题

标题：设计了一款参数查询的系统，代码如下，但是运行会出现变量未定义或With块未 ...

取消只看楼主

cool_five

等　级：新手上路
帖　子：5
专家分：0
注　册：2011-6-7
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：4

设计了一款参数查询的系统，代码如下，但是运行会出现变量未定义或With块未设置的问题

Private Sub Command1_Click()
Dim sname As Variant
sname = Text1.Text
Data1.Recordset.FindFirst "每齿进给量 like'" & sname & "'"
If Data1.Recordset.NoMatch Then MsgBox ("无此每齿进给量") 'MsgBox "无此每齿进给量", , -"提示"

End Sub

Private Sub Command2_Click()
铣削用量浏览.Show
End Sub

Private Sub Command3_Click()
Dim sname As Variant
sname = Text2.Text
Data1.Recordset.FindFirst "被加工材料 like'" & sname & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此被加工材料", , "提示"
End Sub

搜索更多相关主题的帖子: 进给量　