容错处理应该怎么写？在线等

Question

For i = 1 To UBound(gAS)
            If gAS(i).connected = True Then
                On Error GoTo ERROR_HANDLE
                    sockserver(i).SendData "strSendString"
                    DoEvents
ERROR_HANDLE:
            End If
        Next这个语句的容错处理应该怎么写？
如果碰到sockserver(i)在发送数据的时候报错，就自动跳到下一个循环，就是执行i+1的语句

Answer 1

sub ...For i = 1 To UBound(gAS)
            If gAS(i).connected = True Then
                On Error GoTo ERROR_HANDLE
                    sockserver(i).SendData "strSendString"
                    DoEvents
            End If
        Next        exit subERROR_HANDLE:    on error goto 0
    resume nextend sub

Answer 2

直接on error resume next 就好了