vfp 上一条 下一条 代码

来源:百度知道 编辑:UC知道 时间:2024/07/06 15:39:46
我做了两个命令按钮 ,一个是上一条 一个是下一条

上一条的代码,按书上写的 没有错,但是运行的时候 上一条要按两次才能显示messagebox,下一条的代码运行起来也是 已经是最后一个了,但是还能再按 现实空白文件,再按一下才能现实messagebox,请问该怎么解决这个问题啊?

上一条
if .not. bof()
skip - 1
thisform.refresh
else
messagebox("已经是第一条纪录!",0,"纪录情况")
this.enabled=.f.
endif

下一条
if .not. eof()
skip
thisform.refresh
else
messagebox("已经是最后一条纪录!",0,"纪录情况")
this.enabled=.f.
endif

这样改试一下:

上一条
skip -1
if .not. bof()
thisform.refresh
else
messagebox("已经是第一条纪录!",0,"纪录情况")
this.enabled=.f.
endif

下一条
skip 1
if .not. eof()
thisform.refresh
else
messagebox("已经是最后一条纪录!",0,"纪录情况")
this.enabled=.f.
endif

eof()不是最后一条记录,它在最后一条的后面。
bof()同理