怎么解决函数的参数值、类型或数目无效?

表单中有一个页框,该页框包含两页,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.page2.Commandgroup1.command2.enabled=.f.    &&使【上一条】按钮不可用
      Thisform.pageframe1.page2.Commandgroup1.command1.enabled=.f.   &&使【第一条】按钮不可用

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

ENDIF 
      Thisform.pageframe1.page2.Commandgroup1.command3.enabled=.t.
      Thisform.pageframe1.page2.Commandgroup1.command4.enabled=.t.
      thisform.refresh 

page2的下一条按钮代码
SELECT  biao1
SKIP 
IF eof() 
      =messagebox("已经是最后一条纪录!",48,"信息窗口")
   skip 1   
      Thisform.pageframe1.page2.Commandgroup1.command3.enabled=.f.   &&使【下一条】按钮不可用
      Thisform.pageframe1.page2.Commandgroup1.command4.enabled=.f.   &&使【最后一条】按钮不可用
else
      Thisform.pageframe1.page2.Commandgroup1.command3.enabled=.t.  
ENDIF 
      Thisform.pageframe1.page2.Commandgroup1.command1.enabled=.t.   &&使【下一条】按钮不可用
      Thisform.pageframe1.page2.Commandgroup1.command2.enabled=.t. 
thisform.refresh
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值