请高手给改正错误 - 编程论坛

#2

吹水佬2022-10-10 18:08

改几个地方试试：
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)

#3

zhken2022-10-10 22:07

这样也试试

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

#4

学习者05392022-10-11 11:57

谢谢，试试。