以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问下在窗口设计里，怎么用代码隐藏显示列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10720)
--  作者：dark272710
--  发布时间：2011/6/20 12:58:00
--  请问下在窗口设计里，怎么用代码隐藏显示列

因为有比较多的列，想要在窗口里实现这个内容：

 

多个复选框（列名称）

 

然后一个按钮，点击后按照所选的显示/隐藏 所选列

 

另一个撤销按钮。

 

 

谢谢。。新手，没有在帮助文档里找到。

 
--  作者：ybil
--  发布时间：2011/6/20 13:47:00
--  
显示:

Dim chk As WinForm.CheckBox
For n As Integer = 1 To 10   \'n的最大值根据实际情况设定
    chk= e.Form.Controls("CheckBox" & n)
    Tables("表A").Cols( chk.Text).Visible =  chk.Checked  
Next

隐藏:
Dim chk As WinForm.CheckBox
For n As Integer = 1 To 10
    chk= e.Form.Controls("CheckBox" & n)
    Tables("表A").Cols( chk.Text).Visible = Not chk.Checked  
Next

撤销:
Dim chk As WinForm.CheckBox
For n As Integer = 1 To 10
    chk= e.Form.Controls("CheckBox" & n)
    Tables("表A").Cols( chk.Text).Visible =  True
Next


[此贴子已经被作者于2011-6-20 16:02:10编辑过]
--  作者：dark272710
--  发布时间：2011/6/21 10:47:00
--  

谢谢谢谢~~

 

有空还是要多研究下各个东西的属性~~争取不做伸手党~