求救：vb中的错误处理方式

Question

on error goto RKO
   Do While Not
      ......
   
    RKO:
        write()
   loop
...如上，不管中间出不出错都会执行write()方法，
如果这样
on error goto RKO
   Do While Not
      ......
   loop    RKO:
        write()
...
那么一遇到错误救停止了，我是想遇到错误的时候就执行write()方法，然后继续执行do while语句
该怎么处理？？

Answer 1

....
exit sub 
RKO:
        write()
.....
end sub

Answer 2

on error goto RKO
   Do While Not
      ......
   loop
   exit sub
RKO:
   write()
   Resume Next '这里是跳过出错那句而继续，若想重新执行出错那句，只需换成“Resume”就行；若想恢复到指定的位置，可用“Resume 标签名:”

Answer 3

用on error resume next
别用on error goto 就是了
on error resume next 就是跳过错误的语句继续执行后面的，如果有什么不解，可以去查msdn,那里有详细的说法。

Answer 4

用GoTo
on error goto RKO
   Do While Not
      ......
   goto LoopBottom
    RKO:
        write()
LoopBottom:
   loop

Answer 5

搞定，加多个标示on error goto 标示2标示1:
     Do While Not
       ......
     loop
     exit sub
标示2:
     write()
     Resume 标示1
（循环中如果一条语句出错就用Write()记录，同时再跳到DO进行一下个循环）

Answer 6

“标示1:”有什么用？既然用了小吉的“Resume 标示1”就把分数给他，这20分你又收不回的。