此主题相关图片如下：1704338258454.png
请教老师：用户“李虹”等打开项目就会出现图片提示，但“庄斌”打开时就不会出现图片提示，是什么原因
此主题相关图片如下：1704338215257.png
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.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()
加好友 
发短信
Post By：2024/1/4 11:33:00 [只看该作者]
