Private Sub Command1_Click()
Dim mno As String
mno = Text1.Text
Data1.Recordset.FindFirst "课程名='" & mno & "'"
If Data1.Recordset.NoMatch Then MsgBox "无此课程名！", , "提示"
End Sub
这段代码 到底哪里有错误 为什么不能运行
用VB语言编写的查询代码
答案:2 悬赏:0
解决时间 2021-02-21 12:28
- 提问者网友：爱你等于作孽
- 2021-02-21 06:57
最佳答案
- 二级知识专家网友：何必打扰
- 2021-02-21 07:42
Data1.Recordset.FindFirst "课程名='" & mno & "'"
这一句改成
dim aa as string
aa="课程名='" & mno & "'"
Data1.Recordset.FindFirst aa
看看，感觉就是这一句有问题。变量名被读成字符窜了。
你再试试看。
这一句改成
dim aa as string
aa="课程名='" & mno & "'"
Data1.Recordset.FindFirst aa
看看，感觉就是这一句有问题。变量名被读成字符窜了。
你再试试看。
全部回答
- 1楼网友：初心未变
- 2021-02-21 07:55
private sub command1_click()
dim a as single, b as single
a = val(inputbox("输入华氏摄氏度", "提示"))
b = (a - 32) * 5 / 9
msgbox "转换之后是摄氏" & b & "度。"
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯