进来拿分各位兄弟(关于错误捕捉的简单问题)

Question

请问各位大哥,如果没有捕捉到错误,error01:下的代码怎么还被运行呢?
如何不让它运行? 谢谢各位大哥
 
 On Error GoTo error01
  rep_areg.Show
 
  
error01:
  MsgBox "SQL语句错误,请查证!", vbOKOnly + vbExclamation, "警告"
  Unload rep_areg
  Me.Command4.Enabled = True
  Me.Command1(0).Enabled = False
  Me.Text2.Text = ""
  seasql = ""
  Exit Sub

Answer 1

error01！前面还应加一个Exit Sub.

Answer 2

On Error GoTo error01
  rep_areg.Show
   exit sub 
  
error01:
  MsgBox "SQL语句错误,请查证!", vbOKOnly + vbExclamation, "警告"
  Unload rep_areg
  Me.Command4.Enabled = True
  Me.Command1(0).Enabled = False
  Me.Text2.Text = ""
  seasql = ""
  Exit Sub

Answer 3

Private Sub subName()  On Error GoTo error01  '当错误发生马上执行到error01后面的代码
  rep_areg.Show
  
  Exit Sub  '如果没有这一行代码SubName将继续执行以下直到遇见这样的结束过程语句error01:  MsgBox "SQL语句错误,请查证!", vbOKOnly + vbExclamation, "警告"
  Unload rep_areg
  Me.Command4.Enabled = True
  Me.Command1(0).Enabled = False
  Me.Text2.Text = ""
  seasql = ""Exit Sub

Answer 4

各位兄弟, rep_areg 是Activereport,vb的捕错好像不能捕捉到其错误码,有无好的办法?

Answer 5

if false then 
error01:  MsgBox "SQL语句错误,请查证!", vbOKOnly + vbExclamation, "警告"
  Unload rep_areg
  Me.Command4.Enabled = True
  Me.Command1(0).Enabled = False
  Me.Text2.Text = ""
  seasql = ""
endif