以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CheckedChanged中代码报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79636)
--  作者：一笑
--  发布时间：2016/1/6 15:31:00
--  CheckedChanged中代码报错
窗口上有单选CheckBox控件，计划当选择后隐藏“描述”文本框，在CheckedChanged写入如下代码报错，在afterload中写入“e.Form.Controls("描述").Visible = False”，可执行，求解：
Dim chk As WinForm.CheckBox
chk = e.Form.Controls("有无")

If chk.Checked = False Then
   e.Form.Controls("描述").Visible = False
    Else
       e.Form.Controls("描述").Visible = True 
    End If
--  作者：大红袍
--  发布时间：2016/1/6 15:34:00
--  
If e.Sender.Checked = False Then
    e.Form.Controls("描述").Visible = False
Else
    e.Form.Controls("描述").Visible = True
End If
--  作者：一笑
--  发布时间：2016/1/9 21:10:00
--  
代码可行。
但在同一窗口上的另一CheckBox中写入类似的代码：
If e.Sender.Checked = False Then
    e.Form.Controls("不合规").Visible = False
Else
    e.Form.Controls("不合规").Visible = True
End If
点击其中一个单选框，两个会联动，而且触发相同事件，求解
--  作者：大红袍
--  发布时间：2016/1/10 12:08:00
--  
看不懂你什么意思，做例子发上来。