表单中有一个页框，该页框包含两页，page1用来查询，page2用来显示查询结果，在page1的查询按钮中写下如下代码进行筛选，page2显示筛选结果，由于筛选出来的数据有多条，当点击page2的“上一条”“下一条”按钮时提示函数的参数值、类型或数目无效

page1的查询按钮代码：
SELECT   biao1
SET FILTER TO  LIKEC(ALLTRIM(zfc),UPPER(bh))
GO top
if eof()
   =messagebox("无此记录",5+48+0,"信息提示对话框")=4
   ELSE
   Thisform.pageframe1.page2.text1.value=biao1.bh
   Thisform.pageframe1.page2.text2.value=biao1,xm
   Thisform.pageframe1.page2.text3.value=biao1.zw
   thisform.Refresh
   THISFORM.PageFrame1.ActivePage = 2
ENDIF


page2的上一条按钮代码
SELECT   biao1
SKIP -1
IF bof()
      =messagebox("已经是第一条纪录！",48,"信息窗口")
      Thisform.pageframe1.    &&使【上一条】按钮不可用
      Thisform.pageframe1.   &&使【第一条】按钮不可用

else
      this.enabled=.t.
      Thisform.pageframe1.   &&使【第一条】按钮可用

ENDIF
      Thisform.pageframe1.
      Thisform.pageframe1.
      thisform.refresh

page2的下一条按钮代码
SELECT  biao1
SKIP
IF eof()
      =messagebox("已经是最后一条纪录！",48,"信息窗口")
   skip 1   
      Thisform.pageframe1.   &&使【下一条】按钮不可用
      Thisform.pageframe1.   &&使【最后一条】按钮不可用
else
      Thisform.pageframe1.  
ENDIF
      Thisform.pageframe1.   &&使【下一条】按钮不可用
      Thisform.pageframe1.
thisform.refresh

[ 本帖最后由 gyyimut 于 2014-8-15 14:22 编辑 ]

点击“挂起”，然后再检查代码和相应变量的值。
顺便啰嗦一句：不要经常对整个表单刷新，这样会浪费时间的。可以对某个控件（如某个页面或者页面中的表格、文本框进行刷新），这样会节省时间。另外在页面里对本页面的控件进行操作可以不指定全路径，用thispage.就行。

重点查查函数，一处一处查

IF eof()
      =messagebox("已经是最后一条纪录！",48,"信息窗口")
   skip 1   && 这句会出错

SELECT   biao1
SET FILTER TO  LIKEC(ALLTRIM(zfc),UPPER(bh))
GO top
if eof()
   =messagebox("无此记录",5+48+0,"信息提示对话框")=4
   ELSE
 browse
ENDIF

我用以上代码测试 SET FILTER TO  LIKEC(ALLTRIM(zfc),UPPER(bh))，能筛选出记录，真不知问题出在哪了？

=messagebox("无此记录",5+48+0,"信息提示对话框")=4   && 这句语法错误

eof()和bof()为.T.时，要防止记录超出范围，如：
if eof()
   GO BOTTOM

if bof()
   GO TOP

上传相关文件

(⊙o⊙)…

[ 本帖最后由 gyyimut 于 2014-8-15 17:13 编辑 ]