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

roych

应该加上If判断才可以的。

1. Option Compare Database
   
2. Private Sub Command2_Click()
   
3. On Error GoTo Errorline
   
4.     Dim a As String
   
5.     a = InputBox("请输入数据！", "提示框")
   
6. if a<>"" then
   
7.     MsgBox "您输入的数据是：" & a, 0vbExclamation
   
8. exit sub
   
9. End if
   
10. Errorline:
    
11. MsgBox "没有输入数据或单击“取消”按钮", vbCritical, "错误"
    
12. End Sub

复制代码

roych

dorenmi 发表于 2014-11-30 14:02
谢谢roych，看来消化书里的代码要以批判的态度学习，~~~~~~

即便没有出错时，都会执行这一条（错误号一般是0），所以设置错误提示时，应该以错误号来判断。