请教移动记录按钮中的代码问题

主题：请教移动记录按钮中的代码问题

jcjfhy [专家分：0] 发布于 2008-07-21 19:28:00

我在按钮"下一记录"的click中的代码为

IF  RECNO()>RECCOUNT()
    GO BOTTOM
    MESSAGEBOX("已到末记录",48,"企业综合管理系统")
ELSE
    SKIP
ENDIF
THISFORM.Init

但我在连续点击"下一记录"按钮时当显示到最后一条记录时还没出现"已到末记录"的提示,而当再点击一次"下一记录"按钮时在表格中显示一条空记录后才会出现"已到末记录"的提示
请问能否修改代码后使得当显示到最后一条记录时就出现"已到末记录"的提示?谢谢

本帖地址： http://bbs.pfan.cn/post/281095.html

回复列表（共3个回复）

沙发

cbl518 [专家分：57140] 发布于 2008-07-21 19:35:00

SKIP 2
IF EOF()
MESSAGEBOX("已到末记录",48,"企业综合管理系统")
ENDIF
SKIP -1
THISFORM.Init

板凳

cbl518 [专家分：57140] 发布于 2008-07-21 19:38:00

SKIP 2
IF EOF()
    注意在此要：设置《下一条》和《最后一条》的按钮不可用！
    MESSAGEBOX("已到末记录",48,"企业综合管理系统")
ENDIF
SKIP -1
THISFORM.Init

3 楼

cbl518 [专家分：57140] 发布于 2008-07-21 20:17:00

LOCAL lEop
SKIP 2
lEop=IIF(EOF(),.T.,.F.)
SKIP -1
? STR(RECNO(),2),含义    &&注意在此要：设置《下一条》和《最后一条》的按钮不可用！
IF lEop
    MESSAGEBOX("已到末记录",48,"企业综合管理系统")
ENDIF
THISFORM.Init

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教移动记录按钮中的代码问题

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教移动记录按钮中的代码问题

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）