建议您去比对:Err.Description 中的相关内容。

解决方案 »

  1.   

    Run your project in VB and debug you code.
    debug.print err.number
      

  2.   

    msgbox err.number & err.description
      

  3.   

    用err.raise err.number,err.source,err.des...
    然后在处理你的显示问题...
      

  4.   

    on error goto ShowErr
    ...exit sub
    ShowErr:
        msgbox err.number & err.description
      

  5.   

    用错误捕获.
    on error goto aa
    select sum(OL_EFFECT)/sum(IL_ESTIMATE) 
    from ODA_RESULT_AMOUNTexit sub
    aa:
      msgbox err.number
      

  6.   

    我在想啊,你首先在调试中让它出一次错,VB不是弹出一个提示吗?那上面好像就记录了Err.number的
      

  7.   

    用ON ERROR GOTO ERROR_MESSAGE
    来捕获错误.
    然后用 msgbox err.number 显示出来.和wxy_xiaoyu(然也)一样.