我的“上一条”代码是
If Bof()
    Messagebox("已经是第一条纪录！",0,"纪录情况",1500)
    This.Enabled=.F.
Else
    Skip -1
********
    Thisform.Refresh
Endif

“下一条”代码是：
If Eof()
    Messagebox("已经是最后一条纪录！",0,"纪录情况",1500)
    This.Enabled=.F.
Else
    Skip 1
**********
    Thisform.Refresh
Endif

因为表首和表尾都存在逻辑删除数据，结果“下一条”到最后一条记录时，能提示"已经是最后一条纪录！",但“上一条”到了可用的第一条记录后，什么也不会显示（因为没有到物理第一条？）。什么原因呢？怎么解决好啊？

不大明白你的意思。一般檢測到BOF()標誌時就Goto Top，檢測到EOF()就Goto Bottom，沒有你說的現象。

你要明白，BOF()和EOF()都是處於記錄指針越界狀態下得到的真值。在你的這個代碼中，記錄本來已經處於第一條記錄，而你先檢測BOF()，此時得到假值，於是SKIP -1，結果越界出錯，後面的EOF()也一樣。

正確的檢測辦法，是先SKIP -1，然後檢測BOF()是否為真，如果為真，則GOTO TOP返回第一條記錄，為假的話，就已經SKIP -1了，正好。

set filter to !deleted()

谢谢TonyDeng、apple0072011！

“上一条”代码是：
Skip -1
If Bof()
    Messagebox("已经是第一条纪录！",0,"纪录情况",1500)
    This.Enabled=.F.
GO TOP
Else
Endif
Thisform.Refresh

“下一条”代码是：
Skip 1
If Eof()
    Messagebox("已经是最后一条纪录！",0,"纪录情况",1500)
    This.Enabled=.F.
    GO BOTTOM
Else
Endif
Thisform.Refresh

终于找到原因了：因为在初始化时运行了count to nRow命令后，指针指向eof()的位置，所以执行“下一条”时总是出现越界的错误。
在执行count to nRow之后，将指针复位，问题便解决。