以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按用户分组加载表单不同行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139852)

--  作者:Jaime
--  发布时间:2019/8/23 10:23:00
--  按用户分组加载表单不同行
老师好!我在项目 LoadUserSetting 里输入以下代码:
If User.Group = "公司领导" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "生产部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "企管部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "采购部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "市场部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "财务部" Then
    DataTables("计划单").LoadFilter = ""
Else
    DataTables("计划单").LoadFilter = "申请单位 = \'" & User.Group & "\'"
End If
DataTables("计划单").Load()

希望实现不同用户权限的加载分配,但出现错误提示,请问代码如何调整,谢谢老师!

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/8/23 10:35:00
--  
应该不是这里的问题

BeforeLoadOuterTable事件有没有代码?

--  作者:Jaime
--  发布时间:2019/8/23 10:54:00
--  
BeforeLoadOuterTable里有一个代码:

If e.DataTableName = "物料分类代码" Then
    e.SelectString = "Select * Fro m {物料分类代码} Where [_Identify] Is Null"
End If
 
我刚才把这个"物料分类代码"屏蔽了,错误提示还是出现;
 
我把一楼计划单的代码屏蔽后,不出现错误提示

--  作者:Jaime
--  发布时间:2019/8/23 11:29:00
--  
老师好! 

      BeforeLoadOuterTable里有一个代码:

If e.DataTableName = "物料分类代码" Then
    e.SelectString = "Select * Fro m {物料分类代码} Where [_Identify] Is Null"
End If
 
我刚才把这个"物料分类代码"屏蔽了,错误提示还是出现;
 
我把一楼计划单的代码屏蔽后,不出现错误提示;请问分组权限加载这个代码可以修改优化吗

If User.Group = "公司领导" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "生产部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "企管部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "采购部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "市场部" Then
    DataTables("计划单").LoadFilter = ""
ElseIf User.Group = "财务部" Then
    DataTables("计划单").LoadFilter = ""
Else
    DataTables("计划单").LoadFilter = "申请单位 = \'" & User.Group & "\'"
End If
DataTables("计划单").Load()

--  作者:有点蓝
--  发布时间:2019/8/23 11:39:00
--  
其它地方有没有和"计划单"有关的关联加载代码?
--  作者:Jaime
--  发布时间:2019/8/24 0:48:00
--  
老师好!

1、我将“计划单”表改为别的未建立任何关联的表,测试还是出现这个错误提示,只是表名变为了新改的表。(虽然提示错误但加载是按要求执行的运行正常);
2、我做了个模拟项目,将计划单的代码写过去,模拟项目没有提示错误,运行正常。

 这个按权限加载不同行功能,是公司各部门人员可(按部门设置的组定义)对“计划单”(公司下属的各车间提交)进行审核批准,各车间只加载自己的行,部门加载全部行(计划单内用申请单位列判断)。请问老师还有什么办法解决这个错误提示? 
[此贴子已经被作者于2019/8/24 8:49:04编辑过]

--  作者:有点蓝
--  发布时间:2019/8/24 8:40:00
--  
我测试没有问题。上传实例看看
--  作者:Jaime
--  发布时间:2019/8/24 9:00:00
--  
请老师指导!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:foxkf.foxdb


--  作者:有点蓝
--  发布时间:2019/8/24 9:12:00
--  
连接不到数据库无法测试。导出一个access数据库上传测试
--  作者:Jaime
--  发布时间:2019/8/24 9:42:00
--  
老师好!  是用高速导出吗,出来只一个表里可以选列,是这样吗

上传提示错误:文件类型不正确
[此贴子已经被作者于2019/8/24 9:45:28编辑过]