这样也试试
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