你把errHandle写在End Sub外面,自然就会报“标签未定义”的错误,改成下面这样:
Private Sub Command1_Click()
On Error GoTo errHandle
:
:
errHandle:
MsgBox Err.Number & Err.Description & Err.Source
End Sub
Private Sub Command1_Click()
On Error GoTo errHandle
:
:
errHandle:
MsgBox Err.Number & Err.Description & Err.Source
End Sub
解决方案 »
- 新手问题:MDB数据库sql中按时间条件查询问题?
- VB打開一個project,為什麼裡面的form全打開
- vb打包时,access数据库遇到问题
- 如何将在D:\T 文件夹下的多个XML:比如1.XML,2.XML...批量导入到ACCESS 中,(这些XML的结构是一样的)??
- 关于msgbox 的问题
- 三拜九叩诸位大侠:将flash的swf格式的文件导入资源文件中后,如何调用它?
- 新手求救,一个DATA控件使用问题。
- VB如调用API复制文件,并可以判断文件已经复制成功!
- 用VB对Excel做报表的问题
- help me,有关VB随机数。
- 请问:哪里有学生管理系统或图书管理系统的源程序下?
- 我想在VB里放FLAH!
On Error GoTo errHandle
:
exit sub
errHandle:
MsgBox Err.Number & Err.Description & Err.Source
End Sub
On Error GoTo errHandle
:
:
exit sub
errHandle: MsgBox Err.Number & Err.Description & Err.SourceEnd Sub
我这样就出错了