关于VB中的错误处理（高手请进）up有分

Question

On error Goto 行号
or 
On Error Resume Next来捕捉错误可以把错误,以对话框的方式直接返回给用户,也可以把错误,时间,发生位置..写到Log里面

Answer 1

sub command1()
on error goto el
.
.
.
el:
errorf（“错误参数”）
end sub
public function errorf(errorstring as string) '可以放在模块里
   msgbox "error information!" & 错误参数
end function

Answer 2

Err.Number是错误号。
Err.Description 是错误的描述；
你可以这样：
if err.Number<>0 then
      msgbox "Err.Description"
      err.Clear
      exit sub
end if

Answer 3

前面要加上：On Error Resume Next

Answer 4

on error goto L   end sub   '如果正常运行则下面的不执行
L:
  msgbox err.description

Answer 5

on error goto ErrLine
...
...
ErrLine:
   msgbox err.number & err.description

Answer 6

On Error GoTo ErrMsg
   ..............'程序
   Exit Sub(Function)
ErrMsg:
   MsgBox "错误代码：" & Err.Number & vbCrLf & _
          "错误信息：" & Err.Description, , "提示"
   Resume Nextvb6的错误处理功能很不尽人意，vb.net的错误处理功能据说很强大，我正在学，建议你也转到vb.net

Answer 7

vb只能用on error ....vb.net or c# can:try ... catch...

Answer 8

Private Sub S_FKReditErr(ByVal strErrCD As String, _
                         ByVal strErrInfo As String, _
                         ByVal strOfSql As String, _
                         ByVal strParam As String, _
                         ByVal strMyFunc As String)    On Error Resume Next
    
    Dim lngRet          As Long         '戻り値
    Dim objErr          As Object       'オブジェクト(fkrKyotu_SV)
 
    ''&#65396;&#65431;&#65392;&#65397;&#65420;&#65438;&#65404;&#65438;&#65386;&#65400;&#65412;開始
    Set objErr = CreateObject("fkrKyotu_SV.fkrLib")
    
    lngRet = objErr.F_FKRerrLog(strErrCD, strErrInfo, _
                                strOfSql, strParam, "", CLASSNAME, strMyFunc)
    
    Set objErr = NothingEnd Sub