以前网上得到的一段错误诊断代码,结果老是不正确是怎么回事?
On Error Do errordo With Error(), Message(), Message(1), Program(), Lineno()
Procedure errordo
Parameter merror, Mess, mess1, mprog, mlineno
Messagebox('错误号: '+Ltrim(Str(merror))+Chr(13)+'错误信息: '+Mess+Chr(13)+'错误代码: '+mess1+Chr(13)+'错误行号: '+Ltrim(Str(mlineno))+Chr(13)+'发生错误的程序名: '+mprog,0,'错误提示...')
Quit
Endproc
这是一段发生错误时,触发的提示框,mess1 显示的根本不是错误行的代码,请问怎么改?