- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 急，老师自定义菜单变成灰色了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141146)
-- 发布时间：2019/9/22 17:56:00
-- 急，老师自定义菜单变成灰色了
老师，今天一天了，我的自定义菜单变成灰色怎么也弄不好了，特别着急，怎么回事呢？求解
此主题相关图片如下：1569146084(1).jpg
-- 发布时间：2019/9/22 19:46:00
--
明天联系客服核对一下激活码
-- 发布时间：2019/10/8 9:32:00
--
老师，激活码已经核对，没有任何问题，之前是出差在笔记本上出现菜单变灰的情况
现在我回来在办公室的台式机上也出现这种问题了
上次联系客服说我项目事件中的代码设置问题
afteropenproject事件如下
DataTables("海运发运明细").DataCols("后程日期组_实际到港").RaiseDataColChanged()
\'每次开启项目时都重置实际到港,使与之关联的代码重新计算
DataTables("集港箱号").DataCols("无流向日期").RaiseDataColChanged()
\'每次开启项目时都重置无流向日期,使与之关联的代码重新计算
Forms("主页").Open()
MainTable = Tables("报价明细")
\'自动打开主页定位主表
If User.name = "李萍(开发者)"
TableCaptionVisible = True
Else
TableCaptionVisible = False
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
Case "操作员","调度","仓管员","重柜业务员","外贸操作","业务负责人","后程管理"
Forms("主页").Controls("导航主板").TabPages(4).Visible = False
End Select
\'商务页面可见授权
Tables("主页_派车需求与集港").OpenView("集港表视图")
Tables("主页_铁路辅料操作需求").OpenView("辅料视图")
Tables("主页_铁路淀粉操作需求").OpenView("淀粉视图")
Tables("产品发运通知单.费用预算明细表").OpenView("正常视图")
Tables("信风铁路辅料导入.操作派车需求").OpenView("辅料视图")
Tables("信风铁路淀粉导入.操作派车需求").OpenView("淀粉视图")
\'固定视图界面
DataTables("操作派车需求").ReplaceFor("编辑者",Nothing,"编辑者 = \'" & User.Name & "\'")
DataTables("操作派车需求").Save()
\'Tables("操作派车需求").Cols.Remove("编辑者")
With Tables("产品发运通知单")
.Cols("备注").OpenWindow()
End With
loadusersetting事件代码如下
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 = "上货计划号,下达日期"
\'排序
在线客服老师让我注释这些代码，可是这些都是必要的，取消了有些功能就没有了
我试着把刷新时间的代码和视图代码注释了，刚开表还行，可是过了半小时左右，自己就变灰了，这期间也没进行什么操作
直到最后我们也不知道菜单变灰究竟是因为什么原因，这个错误出现在远程数据版本上比较多，局域网版本出现过一次
如果不能解决这个问题，我这个做了一年多的项目恐怕遇上大麻烦了，请老师无论如何帮我想想办法，谢谢了
-- 发布时间：2019/10/8 9:55:00
--
1、把加密狗换一个usb口插上，直接插电脑的usb口，不要使用延长线，扩展坞这种。
2、看看电脑有没有启用休眠、待机功能，关闭掉
3、换台电脑试试有没有问题
-- 发布时间：2019/10/8 10:08:00
--
开发一年多，一直用这台电脑，最近才出现的这种问题，加密狗直接插的没有用数据线，
主要是，我把局域网版和远程版同时开启，只有远程版出现这种问题，局域网版的没有问题
-- 发布时间：2019/10/8 10:12:00
--
如果远程加载比较多的数据，建议做动态加载，分页加载，不要一次性加载太多数据。
另外2个不同项目文件不要放在同一个文件夹里使用
-- 发布时间：2019/10/8 10:27:00
--
是的，两个项目是在两个文件夹里的，并且为了区分我是分放在两个盘符中的
但是远程加载我的确没有设置动态加载
这就是造成灰色菜单的真正原因么？
-- 发布时间：2019/10/8 10:41:00
--
如果加载的数据太多，导致表加载处理超时就会出错，从而导致一系列的后续问题