VFP 愛用者社區

[LBANDLSQISME]

我的错误处理过程，它可以显示错误相关内容，但是它会显示在正在执行的表单中，很多时候我都无法看到完整的出错信息。
我的问题是：如何才能将所有错误处理过程输出的出错信息统一显示在主屏幕上面。
向各位请教！
真诚谢谢您的指导。

[LBANDLSQISME]

我原本的想法是，因我不太会用调试工具，所以我想方便地找到程序错误的地方。我现在的办法是，在错误处理过程中

........
_SCREEN.SHOW && 主屏幕显示
CLEA && 清除原有显示
&& 以下显示各种错误信息
@ 1,1 SAY message
@ 2,1 SAY MESSAGE()
@ 3,1 SAY MESSAGE(1)
@ 4,1 SAY 'error number: '+ alltrim(str(errnum))
@ 5,1 SAY "当前程序或过程"
@ 6,1 SAY program( )
@ 7,1 SAY "程序行数"
@ 8,1 SAY LINENO()
@ 9,1 SAY "当前程序行："
@ 10,1 SAY LINENO(1)
@ 11,1 SAY "正在执行的程序"+SYS(16,3)
@ 12,1 SAY "错误信息参数："+ SYS(2018)
........

请指教。

[garfield]

參考 http://vfp.sunyear.com.tw/viewtopic.php?t=2101&highlight=ERROR
其中 ON ERROR 的用法

[yang1032]

1.ON ERROR DO errhandle WITH Program(),Error(),Message(),Message(1),Lineno()
2.
procedure errhandle
parameters mProgram,mError,mMessage,mMessage1,mLineno
*******************************
private st1,old_select
old_select=select()

do case
case merror=202 .and. s_begin &&預設磁碟機目錄錯誤
s_dir ="c:\"+s_dir_1
set defa to &s_dir
set path to &s_dir
s_net="N"
s_begin=.f.
case merror=1943 && 成員物件無法=某值
case merror=1707 .and. s_begin && 找不到覆合式索引檔
case merror=52 .and. s_begin && 找不到覆合式索引檔
case merror=1961 .and. s_begin &&目錄或檔案已建立
case merror=1705 &&
messagebox("其他使用者正在使用中,無法操作!!")
s_error =merror
other
st1=""
st1= '錯誤程式名稱: ' + mprogram+chr(13)
st1=st1+ '錯誤 代碼: ' + LTRIM(STR(mError))+chr(13)
st1=st1+ '錯誤 訊息: ' + mMessage+chr(13)
st1=st1+ '錯誤 程式列: ' + mMessage1+chr(13)
st1=st1+ '錯誤 列號: ' + LTRIM(STR(mLineno))+chr(13)
*st1=st1+ msys16 +chr(13)
sele 0
use zuv_err &&存入檔案以備查詢
appe blank
repl 程式名稱 with substr(alltrim(s_head2),10)+" "+ mprogram
repl 代碼 with STR(mError,
repl 訊息 with mMessage
repl 程式列 with mMessage1
repl 列號 with str(mLineno,
repl 時間 with dtoc(date())+" "+time()
use
=messagebox(st1,48,"error information")
s_error =merror

endcase
select (old_select)
RETURN