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 = "上货计划号,下达日期"
'排序
在线客服老师让我注释这些代码，可是这些都是必要的，取消了有些功能就没有了
我试着把刷新时间的代码和视图代码注释了，刚开表还行，可是过了半小时左右，自己就变灰了，这期间也没进行什么操作
直到最后我们也不知道菜单变灰究竟是因为什么原因，这个错误出现在远程数据版本上比较多，局域网版本出现过一次
如果不能解决这个问题，我这个做了一年多的项目恐怕遇上大麻烦了，请老师无论如何帮我想想办法，谢谢了
加好友 
发短信
Post By：2019/9/22 17:56:00 [显示全部帖子]
此主题相关图片如下：1569146084(1).jpg