请高手给改正错误 - VFP论坛

学习者0539

等　级：新手上路
帖　子：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

zhken

等　级：贵宾
威　望：11
帖　子：273
专家分：594
注　册：2012-9-21

第 3 楼

得分: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