以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 按用户分组加载表单不同行 (http://foxtable.com/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() 希望实现不同用户权限的加载分配,但出现错误提示,请问代码如何调整,谢谢老师! |
||||
-- 作者:有点蓝 -- 发布时间: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 -- 请老师指导!
|
||||
-- 作者:有点蓝 -- 发布时间:2019/8/24 9:12:00 -- 连接不到数据库无法测试。导出一个access数据库上传测试 |
||||
-- 作者:Jaime -- 发布时间:2019/8/24 9:42:00 -- 老师好! 是用高速导出吗,出来只一个表里可以选列,是这样吗 上传提示错误:文件类型不正确
[此贴子已经被作者于2019/8/24 9:45:28编辑过]
|