有点火,我再说一下.有时候我们只是提示一点.
给点提示,然后让你们自己去思考.自己去动手写或查资料.

难道还想问个问题就直接把代码帖出来?对你们一点帮助都没有.

还说句,我也一样很菜.

dim t as bool'不知怎写

private sub abc()
on error goto Errabc

'自己的语句.
t=true
errabc:
if t=flase then
exit sub
end if
end sub

我KAO,我怎么不好意思了?

想骂人了.

什么玩意儿.

小屁孩什么都不知道,自以是学生,就了不起了.

我提示你了,你还不知道.你说你看书了?

就拿你这个问题来说
ON ERROR GOTO EXITSUB?你用这个,你代码要发生错误才会跳转,没错误你就用GOTO跳转.

都怀疑你没看过<编程论坛生存手册>

还是不服就让管理员把我撤了.把我ID封掉.

呵呵，应该多看看书，实在不得以再问。
这样可以养成良好的学习习惯，
同时也尽可能地少给别人添麻烦。

不管怎么说，大家言语和气，不要冲动。

支持随风逐流。

有些人不懂也就罢了，但如果懒到不愿意看书那谁都拿他没办法，随风逐流最好也别多管闲事^_^。


具体到这个技术问题，我提供一个参考程序

[CODE]Sub MySub()
Err.Clear ' 清除当前可能存在的错误
On Error Goto MyLabel ' 发生错误时跳转到MyLabel标记执行

.....
.....

'Exit Sub ' 注意上面的代码执行完后如果没有错误会执行这行代码，如果没有这个Exit Sub则会继续执行MyLabel后的代码
' 如果MyLabel的作用仅仅是退出子例程则不需要这个Exit Sub,但如果MyLabel后有专门的错误处理过程则最好保留这个Exit Sub
' 为什么呢?假如MyLabel后有代码 Msgbox Err.Source 提示错误来源，你却不加Exit Sub，则会导致不出错的情况下也提示了错误来源

MyLabel:
'..... '这里可以不写任何代码，这样出错后就直接跳转到了End Sub中断子例程执行
End Sub[/CODE]

Dim boolErr as Boolen

Private Sub xx()
on error goto ExitSub
.
.
.
boolErr = False
Exit sub
ExitSub:
boolErr = True
End sub

[此贴子已经被作者于2007-11-14 13:29:48编辑过]

tuxinsun挺适合当版主的，我力挺这厮

不知道是谁找谁求助的

multiple1902 你也不要力挺啦 把自己腰挺闪了划不来

tuxinsun（土X孙 不是“土行孙”） 你觉得你态度好 自己创个论坛好了！

[QUOTE]你还好意思当版主?就你这种态度?
首先我看过书了也实验过失败后才来这里求助的,想不到一上来就遇上一大牌,没把问题讲清楚不说,还说三道四,估计你水平也就一般般了.[/QUOTE]


笑。版主需要讲问题？

谢谢支持.