可以自己写错误信息吗？

Question

Private Sub adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
    MsgBox "Data error event hit err:" & Description
End Sub
...
On Error GoTo Err
    ...
    Exit Sub
Err:
    MsgBox Err.Description
...
这个是VB自己生成的代码，在出错的时候能不能替换掉默认的提示？
可以介绍下adodc1_Error里面的参数吗？

Answer 1

MsgBox Err.Description
'在其后加
Resume 
即可
下面是它的一些方法：
 Resume  '返回程序中导致错误的地方，重新执行相同的操作
 'resume next '返回程序中导致错误的代码的下一行继续执行
'Resume Label '在导致错误的过程内部的某一特定位置继续执行
 'exit sub     '在错误发生时立即退出
 'exit function '同上

Answer 2

可以你将msgbox部分替换成你自己的话就行了.

Answer 3

把Err.Description换成你自定义的出错提示