743
社区成员
发帖
与我相关
我的任务
分享pb代码片段查询问题
现在要维护一个系统，由于对系统不熟悉，所以在用户出错的时候需要查找到对应出错的代码以便查看系统是怎么具体处理的。
所以，希望在全部工程代码中查找出错语句所在的位置，请问怎么处理。
所以，希望在全部工程代码中查找出错语句所在的位置，请问怎么处理。
...全文
请发表友善的回复…
发表回复
zlf19810306 2008-03-31
- 打赏
- 举报
出错不一定是指这些可以显示的错误，有可能会涉及到一些用的比较繁多的代码的改动。 可以利用对象的classdefinition 属性 配合 classdefiniton对象 可以遍历一个对象的所有代码包括（祖先类和控件中的代码）
leio 2008-03-28
- 打赏
- 举报
在application的systemerror事件写
string ls_err_mess,ls_ret
ls_ret = '~r'
ls_err_mess = string(now(),'yyyy-mm-dd hh:mm:ss')+' 系统出现异常：'+ls_ret+&
fill('-',62)+ls_ret+&
' 窗口 ：'+ error.windowmenu + ls_ret+&
' 对象 ：'+ error.object + ls_ret+&
' 事件 ：'+ error.objectevent + ls_ret+&
' 行号 ：'+string(error.line)+ls_ret+&
' 错误 ：'+string(error.number)+' '+ls_ret+&
' 信息 ：'+error.Text
Messagebox('错误',ls_err_mess,stopsign!)
Halt Close;
string ls_err_mess,ls_ret
ls_ret = '~r'
ls_err_mess = string(now(),'yyyy-mm-dd hh:mm:ss')+' 系统出现异常：'+ls_ret+&
fill('-',62)+ls_ret+&
' 窗口 ：'+ error.windowmenu + ls_ret+&
' 对象 ：'+ error.object + ls_ret+&
' 事件 ：'+ error.objectevent + ls_ret+&
' 行号 ：'+string(error.line)+ls_ret+&
' 错误 ：'+string(error.number)+' '+ls_ret+&
' 信息 ：'+error.Text
Messagebox('错误',ls_err_mess,stopsign!)
Halt Close;
I_am_Z 2008-03-28
- 打赏
- 举报
把错误英文提示搞清楚，记住出错的窗体，事件，出错行，不就行了。
jlwei888 2008-03-28
- 打赏
- 举报
错误时会提示哪个对象（窗口）中的 某事件 的 第几行 错误！
那就根据提示找到相应的对家（窗口），查看事件中的第几行代码
那就根据提示找到相应的对家（窗口），查看事件中的第几行代码
