on error goto出现未定义标签，请教原因，谢谢！

dorenmi

具体代码如下：

Option Compare Database

Private Sub Command2_Click()
On Error GoTo Errorline
    Dim a As String
    a = InputBox("请输入数据！", "提示框")
    MsgBox "您输入的数据是：" & a, vbExclamation
End Sub
Errorline:
MsgBox "没有输入数据或单击“取消”按钮", vbCritical, "错误"
End Sub

dorenmi

tmtony 发表于 2014-11-29 12:25
多附上 End Sub
把中间的 End Sub 删除

谢谢tmtony的及时答疑！

我试着把中间的end sub取消，但问题出现了，Errorline后面的语句也按顺序呗执行了！

dorenmi

谢谢roych，看来消化书里的代码要以批判的态度学习，~~~~~~

dorenmi

roych 发表于 2014-12-1 09:14
即便没有出错时，都会执行这一条（错误号一般是0），所以设置错误提示时，应该以错误号来判断。

谢谢 rochy！我是喜欢数据库的新手，以后肯定会提出更多问题，盼望不吝赐教~~~