Foxtable(狐表)用户栏目专家坐堂 → 数据表和管理项目被禁止了


  共有1600人关注过本帖树形打印复制链接

主题:数据表和管理项目被禁止了

帅哥哟,离线,有人找我吗?
foxuser
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:78 积分:750 威望:0 精华:0 注册:2017/7/19 12:42:00
数据表和管理项目被禁止了  发帖心情 Post By:2017/7/25 8:57:00 [只看该作者]

所有项目数据表和管理项目被禁止了

If User.Type<>UserTypeEnum.Administrator Then
    RibbonTabs(
"Table").Visible = False
    RibbonTabs(
"Project").Visible = False
    RibbonTabs(
"Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs(
"Other").Groups("Execute").Items("Command").Enabled = False
Else

    RibbonTabs(
"Table").Visible = True
    RibbonTabs(
"Project").Visible = True
    RibbonTabs(
"Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs(
"Other").Groups("Execute").Items("Command").Enabled = True
End
If


怎样启用呢?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/25 10:24:00 [只看该作者]

按住ctrl不放,用开发者身份登陆,再按住ctrl不放直到打开项目。

 

然后修改代码,这样开发者和管理员,都可以正常使用了。

 

If User.Type = UserTypeEnum.User Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If


 回到顶部