error-handling - VB6 On Error GoTo Line x或Exit Do

Question

我的代码中有一个Do Until循环，在某些情况下可能会出错。但是由于错误，我只希望代码退出Do Until循环并继续执行该子例程的其余部分。

我尝试使用On Error Exit Do，但这说

Expected GoTo or Resume

然后我尝试使用 On Error GoTo 5865，因为5865是循环之后需要继续执行的行，但是，这说

Label not defined

我怎样才能做到这一点？

Answer 1

您在SUB或FUNCTION的顶部声明一个错误陷阱，即:

On Error Goto ErrTrap

在这种情况下，“ErrTrap”是一个标签，它通常位于例程的底部:

ErrTrap:

If Err.Number = ... Then
   ...
   Resume AfterError ' another label
End If

MsgBox("Error blah blah")

在“ErrTrap:”上方，您将放置一个
Exit Sub或 Exit Function相应

并且您将在处理错误后希望代码恢复的任何地方放置“AfterError:”。

这是一个更为复杂的主题的简化-有很多错误处理选项，包括行号捕获，Resume Next等，但这足以让您立即获得所需的信息。研究主题以获取更多信息。