主题：急，老师自定义菜单变成灰色了

If User.name = "李萍(开发者)"

    TableCaptionVisible = True

Else

    TableCaptionVisible = False

End If

'表名可见权限

For Each t As Table In Tables

    t.Visible = True

    t.AllowEdit = True

    For Each c As Col In t.Cols

        c.Visible = True

        c.AllowEdit = True

    Next

Next

Tables("可视化授权").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

    For Each dr As DataRow In DataTables("可视化授权").Select("分组名 = '" & User.Group & "' or 用户名 = '" & User.Name & "'" )

        If dr.IsNull("列名") Then

            Tables(dr("表名")).Visible = Not dr("不可见")

            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")

        Else

            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")

            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑") 

        End If

    Next

End If

'可视化授权

Select Case User.Group

    Case "市场计划管理员","商务","业务负责人","开发者","管理员","经理"

            Forms("主页").Controls("计划皮窗口").TabPages(0).Visible = True

    Case "操作员","调度","仓管员","财物","重柜业务","外贸操作"

            Forms("主页").Controls("计划皮窗口").TabPages(0).Visible = False

End Select

'报表明细可见授权

Select Case User.Group

    Case "商务","开发者","管理员","经理","财务","财务审批","市场计划管理员"

        Forms("主页").Controls("导航主板").TabPages(4).Visible = True

        Forms("主页").Controls("导航主板").TabPages(5).Visible = True

    Case "操作员","调度","仓管员","重柜业务员","外贸操作","后程管理","业务负责人"

        Forms("主页").Controls("导航主板").TabPages(4).Visible = False

        Forms("主页").Controls("导航主板").TabPages(5).Visible = False

End Select

'商务页面可见授权

Tables("计划利润预估").Sort = "上货计划号,下达日期"

'排序

在线客服老师让我注释这些代码，可是这些都是必要的，取消了有些功能就没有了

我试着把刷新时间的代码和视图代码注释了，刚开表还行，可是过了半小时左右，自己就变灰了，这期间也没进行什么操作

直到最后我们也不知道菜单变灰究竟是因为什么原因，这个错误出现在远程数据版本上比较多，局域网版本出现过一次

如果不能解决这个问题，我这个做了一年多的项目恐怕遇上大麻烦了，请老师无论如何帮我想想办法，谢谢了