以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]怎么代码实现隐藏某一列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20311)
--  作者：laoshu4569
--  发布时间：2012/6/4 16:52:00
--  [原创]怎么代码实现隐藏某一列
怎么代码实现隐藏某一列   不要自带那个隐藏功能 通过代码设置 当切换某个用户 显示那一列 另外的用户不显示
--  作者：lihe60
--  发布时间：2012/6/4 17:08:00
--  
.visible=false
--  作者：lihe60
--  发布时间：2012/6/4 17:08:00
--  

if user.name=

.visible=true

esle

.visible=fase

end if
--  作者：狐狸爸爸
--  发布时间：2012/6/4 18:39:00
--  

用这个事件：

 

http://www.foxtable.com/help/topics/1323.htm

 

例如：

 

Select Case User.Name
    Case "张三","李四"
        Tables("订单").Cols("第一列").Visible = False
        Tables("订单").Cols("第二列").Visible = False
        Tables("订单").Cols("第三列").Visible = False
    Case "王五", "赵六"
        Tables("订单").Cols("第一列").Visible = True
        Tables("订单").Cols("第二列").Visible = True
        Tables("订单").Cols("第三列").Visible = True
End Select