VFP 愛用者社區

[mp484]

以recno()取得記錄編號後，如果因為set filter to 的篩選條件改變(例如動態的資料修改)，可能造成goto 回原來的紀錄錯誤，如何在Goto之前先判斷現在的記錄是否存在？謝謝！

[nelsonchuang]

[mp484]

是這樣嗎？

Select * form 表格 where recno()=123 into cursor 暫存檔
select 暫存檔
if eof()
=messagebox("沒有這個紀錄編號！")
else
=messagebox("紀錄編號找到了！")
endif

[mp484]

解決了！我用事先紀錄資料表索引值及記錄編號的方法，在Goto回原記錄編號之前，先以Seek搜尋該筆資料在不在，如果不再就表示原本的紀錄值已經不存在了，不可以Goto回去！

不過這樣還是很麻煩，有沒有指令可以直接判斷記錄編號在不在呢？例如：

recno(123)=.T. ..........這個方法已經試過不行了！

請指教！

[nelsonchuang]

[Patrick Wu]

後學的作法 供 mp484 先進參考

STORE RECNO() TO M->OLD_REC

SET FILTER TO .....

IF M->OLD_REC != 0
LOCATE FOR RECNO() = M->OLD_REC
IF FOUND()
GOTO M->OLD_REC
ELSE
GOTO TOP
ENDIF
ELSE
GOTO TOP
ENDIF

[sean27]

判斷執行是否錯誤, 可以用 TRY 指令
例如:
RECNO_TMP = RECNO()
SET FILTER TO ....

TRY
GOTO RECNO_TMP
CATCH TO ERR_TMP
ENDTRY
IF TYPE("ERR_TMP")="O"
? "GOTO 找不到紀錄:"+STR(RECNO_TMP)
ENDIF

[ckp6250]

7樓 + 1

[mp484]

問題解決了！感謝！

[syntech]

不是每個版本的vfp 都有 try .... catch

[liangszpt]

不建议使用SET FILTER TO 这种方式了。不知你的具体业务是如何，如果要循环处理一条符合条件的记录，可以用SCAN FOR ....ENDSCAN，如果要得出一批符合条件的记录，可以用SELECT * FROM xx INTO CURSOR xx READWRIT，SET FILTER TO 加 GOTO方式 ，容易跳错记录，造成RECORED OUT OF RANGE

[mp484]

因為使用SELECT * FROM xx INTO CURSOR xx READWRIT的方法，Grid的資料會跑掉，無法正常顯示

採用Set Filter to 是因為Grid不用重新畫一次或變成空白

[CCB2000]

GO m.q_rec
IF (ALLTRIM(FILTER())=="".OR.EVAL(FILTER())).AND.;
((SET("DELETED")="ON".AND.!DELETED()).OR.(!SET("DELETED")="ON"))
ELSE
GO TOP
ENDI