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