VFP 愛用者社區

[芝風]

是這樣的，在表單中有上移下移的指令

下移指令：
IF EOF()=.f.
SKIP 1 IN user_data
recNum=RECNO()
ELSE
thisform.commandgroup2.command3.Enabled=.f.
ENDIF


可是例如有七筆資料，到第七筆的時候，他還是判斷eof()=.f

所以我可以再按一下，到最後一筆空白的資料，這時他才會判斷eof()=.t.
才把下移鍵的enable關掉

有人說可以直接拉vcx元件，可是找不到，不知道是哪一個vcx元件

求各位大大幫忙了！

[liangszpt]

你可能还不了解VFP对DBF文件的结构，是这样的。
BOF
第一笔资料
第二笔资料
第三笔资料
......
第N笔资料
EOF

第七笔资料不是最后一笔，是第七笔资料的下一笔，才是文件的最后标致。

[芝風]

第七筆資料的下一筆，是指eof嗎？

那請問我該怎麼設定，讓他在「真正的」最後一筆資料就停住？

[garfield]

有許多狀況要考慮:
1.如果是沒有index 過的資料 recc() 就是最後一筆.
2.如果有index 過, 一般是在按下"下一筆"時, 在 skip 後 才檢查是否為eof() , 例:
skip
if eof()
go bottom
wait windows '已經是最後一筆'
endif

[syntech]

簡單的說,
判斷的Timing 不對.
liangszpt 兄就是這樣的意思.

是先 skip ,再判斷 eof(),
而不是 先判斷eof() 再skip.

一般也是會用 recno() 先記錄一下,再go 回來.
命令怎麼組合就看個人需求

[芝風]

喔喔…原來如此…多謝

[芝風]

呃…現在多了一個問題，也是有關recno的

我一開始會設一個變數，然後先設他為零，然後當執行上一筆，下一筆或是跳行時，都會讓這個變數儲存現在所在的行數

但是我設計了一張空白表單，資料表上完全沒資料

當要執行 go recno的變數時，他就出現 out of range

我知道這是超出範圍，可是我設為零了，為啥還會超出範圍？？

[liangszpt]

因为TABLE是没有0号记录的。
你在一个BOTTOM.CLICK的时候，应该这样判断先
SELECT MYTABLE
IF EOF()
RETURN
ENDIF

[芝風]

嗯嗯…了解

我想我是應該先設變數為零

然後這樣寫

if 變數!=0
go 變數
endif

thisform.refresh

因為我的按鍵是放棄--tablerevert，要從新增--append blank跳出