专家坐堂-[求助]无法用代码控制文本框是否可见Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]无法用代码控制文本框是否可见  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10622)

--  作者：kensou11111
--  发布时间：2011/6/15 11:54:00
--  [求助]无法用代码控制文本框是否可见

我在复选框“CBA99”的CheckedChanged事件设置了如下代码，希望通过CBA99的选中状态控制其余两个控件是否可见

If e.Form.Controls("CBA99").checked = False Then
   e.Form.Controls("Label2").Visible = False And e.Form.Controls("更改单号").Visible = False
Else e.Form.Controls("Label2").Visible = True And e.Form.Controls("更改单号").Visible = True
End If

但是结果是：标签控件"Label2"达到了预期效果，而文本框控件“更改单号”则一直可见，这是否是一个BUG?

--  作者：狐狸爸爸
--  发布时间：2011/6/15 12:09:00
--
e.Form.Controls("Label2").Visible = (e.Form.Controls("CBA99").checked = False And e.Form.Controls("更改单号").Visible = False )

--  作者：blackzhu
--  发布时间：2011/6/15 12:26:00
--
If e.Form.Controls("CBA99").checked = False Then
   e.Form.Controls("Label2").Visible = False
   e.Form.Controls("更改单号").Visible = False
Else
   e.Form.Controls("Label2").Visible = True
   e.Form.Controls("更改单号").Visible = True
End If