VFP中表单中命令按钮下一条记录的代码上一条求高手,!!!
3个回答
展开全部
你是不是说在表单中移动到下一条记录,移动到上一条记录
SKIP
-1
移动到下一条记录
SKIP
1
移动到上一条记录
SKIP
-1
移动到下一条记录
SKIP
1
移动到上一条记录
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
首先要有条件判断记录指针是否到达文件首。
上一条:
if
bof()
&&判断记录指针是否已经到达记录首位置
go
top
&&判断已在记录首位置,将记录指针移到记录首位置
else
&&否则
skip
-1
&&记录指针上移一条
endif
thisform.refresh
&&刷新当前表单。
下一次:
if
eof()
go
bottom
else
skip
1
endif
thisform.refresh
经Visual
FoxPro
6.0上机调试,正确不误。
上一条:
if
bof()
&&判断记录指针是否已经到达记录首位置
go
top
&&判断已在记录首位置,将记录指针移到记录首位置
else
&&否则
skip
-1
&&记录指针上移一条
endif
thisform.refresh
&&刷新当前表单。
下一次:
if
eof()
go
bottom
else
skip
1
endif
thisform.refresh
经Visual
FoxPro
6.0上机调试,正确不误。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询