请教：怎么解决函数的参数值、类型或数目无效？ - VFP论坛

第 11 楼

得分:0

7楼已经指出了错误的代码

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

第 12 楼

得分:0

回复 11 楼 hu9jj

改过了，还是老问题

第 13 楼

得分:0

相关文件：是指与你这次发生错误有关的文件。你发了个项目管理器及一个DBF(还缺少备注文件)文件，是解决不了问题的。

坚守VFP最后的阵地

第 14 楼

得分:0

程序代码：

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