以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置一个按钮两个功能啊  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41381)
--  作者：yangwenghd
--  发布时间：2013/10/18 10:13:00
--  设置一个按钮两个功能啊
 比如 我在面板插入一个按钮   然后想 点击第一下是隐藏第一列  再点击就是显示第一列    
--  作者：不倒的翁
--  发布时间：2013/10/18 10:19:00
--  
 IIF函数可以满足
http://www.foxtable.com/help/topics/1519.htm
--  作者：Bin
--  发布时间：2013/10/18 10:19:00
--  
Tables("表A").Cols("第一列").Visible = not Tables("表A").Cols("第一列").Visible
--  作者：lsy
--  发布时间：2013/10/18 10:20:00
--  

按钮的文本属性设为：“隐藏”

If e.Sender.Text = "隐藏" Then
    e.Sender.Text = "显示"
    Tables("表A").Cols("第一列").Visible = False
ElseIf e.Sender.Text = "显示" Then
    e.Sender.Text = "隐藏"
    Tables("表A").Cols("第一列").Visible = True
End If
--  作者：yangwenghd
--  发布时间：2013/10/18 10:35:00
--  
我怎么想加几列后就不能用啦 兄弟  比如同时还有第二列 第三列 
--  作者：Bin
--  发布时间：2013/10/18 10:37:00
--  
Tables("表A").Cols("第一列").Visible = not Tables("表A").Cols("第一列").Visible
Tables("表A").Cols("第二列").Visible = not Tables("表A").Cols("第二列").Visible
Tables("表A").Cols("第三列").Visible = not Tables("表A").Cols("第三列").Visible
--  作者：狐狸爸爸
--  发布时间：2013/10/18 10:40:00
--  

Dim nms() As String = {"第一列","第二列","第三列"}
Dim visible As boolean
If e.Sender.Text = "隐藏" Then
    e.Sender.Text = "显示"
    Visible = False
ElseIf e.Sender.Text = "显示" Then
    e.Sender.Text = "隐藏"
    Visible = True
End If
For Each nm As String In nms
    Tables("表A").Cols(nm).Visible = Visible
Next

 

 

按钮的初始标题一开始设置为"显示"或"隐藏"
--  作者：yangwenghd
--  发布时间：2013/10/18 11:12:00
--  
真羡慕你们啊 得心应手