表单中有一个页框，该页框包含两页，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 编辑 ]

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))，能筛选出记录，真不知问题出在哪了？

(⊙o⊙)…

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

改过了，还是老问题

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



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

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

ENDIF 
      Thisform.pageframe1.=.t.
      Thisform.pageframe1.=.t.
      thisform.pageframe1.page2.refresh 


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

 Thisform.pageframe1.page2.refresh

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

这是挂起来以后的情况

sdta老师，SET FILTER TO  LIKEC(ALLTRIM(zfc),UPPER(编号))这句就是实现筛选（查询）啊，我是刚学VFP，还请sdta老师指点...

谢谢各位老师的指点，经过不断的排查，原来我把一个变量重复定义了(定义了public型又定义了local型)，问题已解决，再次谢谢各位老师，尤其是sdta老师和hu9jj老师。