| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 隐藏快捷菜单的列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93738) |
|
| -- 作者：紫色幽魂 -- 发布时间：2016/12/5 23:09:00 -- 隐藏快捷菜单的列 If User.Group <> UserTypeEnum.Developer Then Select Case MainTable.Name Case "主表.材料缺失","主表" ContextMenus("Cell").Items("ColMenu").Visible = False End Select End If 这样好像不能隐藏快捷菜单的列项，需要怎么改
|
|
| -- 作者：有点蓝 -- 发布时间：2016/12/6 8:52:00 --
|
|
| -- 作者：紫色幽魂 -- 发布时间：2016/12/6 9:12:00 -- 现在只有管理员和开发者才能加载，不然加载完了就不会出现打开的界面，而且好像也没有隐藏起来 |
|
| -- 作者：有点色 -- 发布时间：2016/12/6 9:29:00 -- 你上面的代码，是要写到maintablechanged事件的。
If User.Type <> UserTypeEnum.Developer Then
Select Case MainTable.Name
Case "主表.材料缺失","主表"
ContextMenus("Cell").Items("ColMenu").Visible = False
Case Else
ContextMenus("Cell").Items("ColMenu").Visible = True
End Select
End If
|
|
| -- 作者：紫色幽魂 -- 发布时间：2016/12/6 10:10:00 -- 不好意思，位置放错了 |