- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189911)
-- 发布时间：2024/1/4 11:33:00
-- 代码问题
此主题相关图片如下：1704338258454.png
请教老师：用户“李虹”等打开项目就会出现图片提示，但“庄斌”打开时就不会出现图片提示，是什么原因
此主题相关图片如下：1704338215257.png
此主题相关图片如下：1704338215257.pngFor 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.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
Dim filter1 As String = "1=1"
If User.Name = "李虹" Then
filter1 &= " and 采购经办人 = \'" & User.Name & "\'"
End If
If User.Name = "姚中晓" Then
filter1 &= " and 采购经办人 = \'" & User.Name & "\'"
End If
If User.Name = "晁成兵" Then
filter1 &= " and 采购经办人 = \'" & User.Name & "\'"
End If
If User.Name = "郭瑜" Then
filter1 &= " and 采购经办人 = \'" & User.Name & "\'"
End If
If User.Name = "陆伶俐" Then
filter1 &= " and 采购经办人 = \'" & User.Name & "\'"
End If
If User.Name = "刘健" Then
filter1 &= " and 采购经办人 = \'" & User.Name & "\'"
End If
If User.group = "辅机事业部" Then
filter1 &= " and 采购计划管理_需求部门 = \'" & User.Group & "\'"
End If
DataTables("物资部采购合同管理台账").LoadFilter = filter1
DataTables("物资部采购合同管理台账").Load()
Dim filter As String = "1=1"
If User.Name = "庄斌" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.Name = "徐重晖" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.Name = "王浩" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.Name = "王珂" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.Name = "邓梅梅" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.Name = "贾雯" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.Name = "郭磊" Then
filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
If User.group = "辅机事业部" Then
filter &= " and 采购计划管理_需求部门 = \'" & User.Group & "\'"
End If
DataTables("招采中心采购管理台账").LoadFilter = filter
DataTables("招采中心采购管理台账").Load()
-- 发布时间：2024/1/4 11:35:00
--
奇怪的是把代码中“李虹”的名字改成“庄斌”，也没问题
-- 发布时间：2024/1/4 11:42:00
--
“庄斌”没有使用"物资部采购合同管理台账"这个表的权限
-- 发布时间：2024/1/4 12:40:00
--
图片提示不存在“物资部合同采购管理台账”，可是代码里也没有“物资合同采购管理台账”字段呀，代码里面的表格名称“物资部采购合同管理台账”，是哪里的问题
-- 发布时间：2024/1/4 13:18:00
--
列名不宜搞那么长，否则，像您这样在写代码的时侯真的对“合同采购”或“采购合同”都傻傻地分不清！
-- 发布时间：2024/1/4 13:31:00
--
BeforeLoadOuterTable这些事件是不是限制了某些表没有加载？
-- 发布时间：2024/1/6 8:18:00
--
没有限制，项目管理里面的几个代码都查了，也没有
此主题相关图片如下：1704500234983.png
-- 发布时间：2024/1/6 9:31:00
--
BeforeLoadInnerTable事件代码发上来看看
-- 发布时间：2024/1/6 11:07:00
--
Select Case e.DataTableName
Case "招采中心采购管理台账"
e.Filter = "[_Identify] Is Null"
End Select
-- 发布时间：2024/1/6 11:16:00
--
看看是不是权限表录入的表名错了，"物资部采购合同管理台账"还是"物资部合同采购管理台账"？