VFP 愛用者社區

[LiuRambo]

敝人所寫的程式常常會需要呼叫WORD來編輯文件
有個很難控制的部分就是"行數控制"
最簡單的方式就是一次長出超過所需的行數
等文件產生完成再把多出的行數DELETE
但是速度會很慢

所以想用ON ERROR來攔截錯誤碼1426
當發生這錯誤碼時自動在WORD新增一行空白行
但是卻遇到一個奇怪狀況
就是當攔截到之後，所攔截到的"程式碼"卻不是真正執行的那一行
而是上一層的某一行，兩段程式天差地遠
請問到底是為什麼呢
我試過從最外層到FORM裡面的ERROR
都是得到一樣的結果
請問是因為呼叫OLE的關係嗎

ON ERROR這工具才沒玩多久
還請各方大德敬請賜教

[ckp6250]

請把您 on error 及錯誤處理程序貼出來看看

[syntech]

HELP :
============
If the command specifies a procedure to execute when an error occurs, you can use ERROR( ), MESSAGE( ), LINENO( ), and PROGRAM( ) to pass the error number, the error message, the program line number, and the program name to the procedure. This information can be used to correct the cause of the error.

============

你是說,當發生錯誤時, LINENO() 不是在你發生錯誤的那行?

[LiuRambo]

譬如說在某PRG裡面

執行程式段A
執行程式段B
DO FORM aa

然後在FORM aa裡面處理OLE WORD的部分
這時發生錯誤碼1429 行號不存在(就是WORD裡面ENTER空白行不足)
而MESSAGE()和MESSAGE(1)裡面所呈現的訊息卻不是FORM裡面所執行OLE的程式行
而是出現外部PRG的程式段B

本來我的構想是
如果ERROR能夠正確攔截到錯誤訊息
跳到ERRORHANDLE裡面加入所缺的空白行
再由MESSAGE(1)所攔截到的程式碼重新執行一次才RETURN回去
這樣就等於把問題處理掉了，繼續下一行
但是現在就是卡在這個MESSAGE(1)的問題上
我也找過AERROR()，這攔不到程式碼只有錯誤代碼

[CCB2000]

VFP7/8/9: ASTACKINFO()

[LiuRambo]

@@"
我的開發環境是VFP6

[ckp6250]

很久沒有用vfp6了,它有 try 的指令嗎?

TRY
[ tryCommands ]
[ CATCH [ TO VarName ] [ WHEN lExpression ]
[ catchCommands ] ]
[ THROW [ eUserExpression ] ]
[ EXIT ]
[ FINALLY
[ finallyCommands ] ]
ENDTRY

[syntech]

沒.


不過ERROR() 的確會出現"幾N(某)次"的錯誤.

[ckp6250]

沒錯, 小弟也覺得 ASTACKINFO() 似乎必需和ERROR() 交互搭配使用才保險。

[LiuRambo]

@@"
所以說除了升級版本，似乎沒救？.....唉