以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于点击按钮隐藏指定列代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95397)
--  作者：feixianzhi
--  发布时间：2017/1/18 15:26:00
--  关于点击按钮隐藏指定列代码问题

    表A中有第一至第六列。
    
    我想实现：做两个按钮，点按钮一,1、3、5列显示，2、4、6列隐藏； 点按钮二，2、4、6列显示，1、3、5列隐藏。选定表A时，全部显示。怎么写代码，请各位老师帮忙。
--  作者：有点色
--  发布时间：2017/1/18 15:30:00
--  

按钮1、按钮2代码

 

dim t as table = tables("表A")
t.cols("第一列").visible = False
t.cols("第二列").visible = True
t.cols("第三列").visible = False
t.cols("第四列").visible = True

 

CurrentTableChanged事件

 

If CurrentTable.name = "表A" Then
    For Each c As Col In CurrentTable.cols
        c.visible = True
    Next
End If
--  作者：feixianzhi
--  发布时间：2017/1/18 15:35:00
--  
非常感谢有点色老师。