| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 860 人关注过本帖
标题:请高手给改正错误
只看楼主 加入收藏
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
结帖率:78.57%
收藏
已结贴  问题点数:11 回复次数:3 
请高手给改正错误
1:第一次点击按钮“下一条记录”时、表最上面的文本框里面的数据不动。
2:到显示为第4条记录时、没有内容的字段仍然显示出来。
3:到显示为第6条记录时,应该像显示第7条记录时的效果。
4:到显示第7条记录时、再点击“下一条记录”时、又跳到第6条。
表单的init、命令按钮有代码。下面是原始文件。
sy.rar (2.55 KB)
搜索更多相关主题的帖子: 显示 按钮 记录 错误 点击 
2022-10-10 09:37
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10539
专家分:42927
注 册:2014-5-20
收藏
得分:4 
改几个地方试试:
1、
 skip 1
 IF EOF()
     GO TOP
 ENDIF

2、
 **if empty(thisform.txtname2.value)=.t.
 if empty(name2)

3、
  **if empty(thisform.txtname3.value)=.t.
  if empty(name3)

2022-10-10 18:08
zhken
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:283
专家分:616
注 册:2012-9-21
收藏
得分:7 
这样也试试


SELECT 表1

IF EOF()
GO top
ELSE
SKIP
ENDIF
thisform.refresh

'当前第 '+ALLTRIM(STR(RECNO()))+' 个记录 '+'下一条记录'


* 如果txtName2中的值是空的话,从lblName2以后的内容就都不显示
if empty(thisform.txtname2.value)
   thisform.txtname2.visible=.f.
   thisform.lblname2.visible=.f.
   thisform.txtuse2.visible=.f.
   thisform.lbluse2.visible=.f.  
   
   thisform.txtname3.visible=.f.
   thisform.lblname3.visible=.f.
   thisform.txtuse3.visible=.f.
   thisform.lbluse3.visible=.f.  
   
   thisform.txtname4.visible=.f.
   thisform.lblname4.visible=.f.
   thisform.txtuse4.visible=.f.
   thisform.lbluse4.visible=.f.           

 else
   thisform.txtname2.visible=.t.
   thisform.lblname2.visible=.t.
   thisform.txtuse2.visible=.t.
   thisform.lbluse2.visible=.t.  
   
   thisform.txtname3.visible=.t.
   thisform.lblname3.visible=.t.
   thisform.txtuse3.visible=.t.
   thisform.lbluse3.visible=.t.  
   
   thisform.txtname4.visible=.t.
   thisform.lblname4.visible=.t.
   thisform.txtuse4.visible=.t.
   thisform.lbluse4.visible=.t.           
 endif

*如果txtName3中的值是空的话,从lblName3以后的内容就都不显示
  if empty(thisform.txtname3.value)
   thisform.txtname3.visible=.f.
   thisform.lblname3.visible=.f.
   thisform.txtuse3.visible=.f.
   thisform.lbluse3.visible=.f.  
   
   thisform.txtname4.visible=.f.
   thisform.lblname4.visible=.f.
   thisform.txtuse4.visible=.f.
   thisform.lbluse4.visible=.f.           

 else
   thisform.txtname3.visible=.t.
   thisform.lblname3.visible=.t.
   thisform.txtuse3.visible=.t.
   thisform.lbluse3.visible=.t.  
   
   thisform.txtname4.visible=.t.
   thisform.lblname4.visible=.t.
   thisform.txtuse4.visible=.t.
   thisform.lbluse4.visible=.t.           
 endif
2022-10-10 22:07
学习者0539
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2011-10-13
收藏
得分:0 
谢谢,试试。
2022-10-11 11:57
快速回复:请高手给改正错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018005 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved