Question

VFP用表单做了一个浏览界面，用来浏览数据表里面的数据

上面的命令按钮有“首页，上一个，下一个，末页”，代码都没错，但是到达首页时要按两次上一页才会提示说已经到达第一页，而末页按一次下一页就会出现一个空白页，再按才会提示已到达末页，这到底是出现了什么问题啊？？求指教 代码如下
do case
case this.value=1
go top
case this.value=2
skip -1
if bof()
go top
messagebox("已经是第一页!")
endif
case this.value=3
skip
if eof()
go bottom
messagebox("已经是最后一页!")
endif
case this.value=4
go bottom
endcase
thisform.refresh

Answer 1

do case
case this.value=1
go top
case this.value=2
If Not Bof()
skip -1
endif
if bof()
go top
messagebox("已经是第一页!")
endif
case this.value=3
if not eof()
skip
endif
if eof()
go bottom
messagebox("已经是最后一页!")
endif
case this.value=4
go bottom
endcase
thisform.refresh