Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共13 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题：代码问题
1楼
13775189031 发表于：2024/1/4 11:33:00

图片点击可在新窗口打开查看此主题相关图片如下：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()
2楼
13775189031 发表于：2024/1/4 11:35:00
奇怪的是把代码中“李虹”的名字改成“庄斌”，也没问题
3楼
有点蓝 发表于：2024/1/4 11:42:00
“庄斌”没有使用"物资部采购合同管理台账"这个表的权限
4楼
13775189031 发表于：2024/1/4 12:40:00
图片提示不存在“物资部合同采购管理台账”，可是代码里也没有“物资合同采购管理台账”字段呀，代码里面的表格名称“物资部采购合同管理台账”，是哪里的问题
5楼
程兴刚 发表于：2024/1/4 13:18:00
列名不宜搞那么长，否则，像您这样在写代码的时侯真的对“合同采购”或“采购合同”都傻傻地分不清！
6楼
有点蓝 发表于：2024/1/4 13:31:00
BeforeLoadOuterTable这些事件是不是限制了某些表没有加载？
7楼
13775189031 发表于：2024/1/6 8:18:00
没有限制，项目管理里面的几个代码都查了，也没有
图片点击可在新窗口打开查看此主题相关图片如下：1704500234983.png
图片点击可在新窗口打开查看
8楼
有点蓝 发表于：2024/1/6 9:31:00
BeforeLoadInnerTable事件代码发上来看看
9楼
13775189031 发表于：2024/1/6 11:07:00
Select Case e.DataTableName
    Case "招采中心采购管理台账"
        e.Filter = "[_Identify] Is Null"
End Select

10楼
有点蓝 发表于：2024/1/6 11:16:00
看看是不是权限表录入的表名错了，"物资部采购合同管理台账"还是"物资部合同采购管理台账"？
共13 条记录, 每页显示 10 条, 页签: [1] [2]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 2 queries.