Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]统计授权表的权限


  共有3096人关注过本帖树形打印复制链接

主题：[求助]统计授权表的权限
帅哥哟，离线，有人找我吗？
无限5180
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		[求助]统计授权表的权限  发帖心情 Post By：2016/10/24 16:58:00 [显示全部帖子]

假设有一个授权表
要筛选出用户名为本人的所有权限和本人未取得的权限列出并填写到统计表中应该如何编写代码，请高手指教，拜托！
 回到顶部
帅哥哟，离线，有人找我吗？
无限5180
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		  发帖心情 Post By：2016/10/24 17:27:00 [显示全部帖子]

授权表中的用户列为多值字段，我通过帮助中的代码已经统计出多值字段中各个用户各自的权限，但还需要进一步统计出各个用户未取得的权限，例如已经统计出本机用户的权限，未有的权限有哪些，要做的是其他用户权限中有与本机用户权限重叠的也要去除，剩余的才是未取得的权限
[此贴子已经被作者于2016/10/24 17:38:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
无限5180
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		  发帖心情 Post By：2016/10/24 19:49:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：目录树授权.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：查询用户已取得权限.png
图片点击可在新窗口打开查看

这是查询用户已经拥有得权限得目录树表

Dim value As String  = e.Form.Controls("DropBox1").value
If value = "" Then
    MessageBox.Show("请选择用户!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Return
Else
    Dim dt As DataTable
    Dim dtb As New DataTableBuilder("统计")
    dtb.AddDef("用户" ,Gettype(String), 100)
    dtb.AddDef("权限",Gettype(String), 150)
    dtb.AddDef("分组",Gettype(String), 90)
    dt = dtb.Build()
    Dim lst As New Dictionary(of String ,DataRow) '定义一个字典,用于检索每个员工在统计表中对应的行
    For Each dr1 As DataRow In DataTables("shouquan").DataRows
        If dr1.IsNull("用户") = False Then  '如果工号列不为空
            Dim nms() As String = dr1("用户").Split(",")  '将工号列内容拆分成数组
            For Each nm As String In nms  '遍历此行中参与权限的每个用户
                Dim dr2 As DataRow
                Dim dr21 As DataRow
                Dim key As String = nm & "|" & dr1("分组") & "|" & dr1("权限")  '这里是关键,由工号和产品组成字典的关键词.
                If lst.ContainsKey(key)   '如果集合中包括此关键词对应的行
                    dr2= lst(key)   '将此行赋值给变量dr2
                Else
                    dr2 = dt.AddNew()   '否则增加一行..
                    dr2("用户") = nm    '新增行的工号列设置为此用户
                    dr2("权限") = dr1("权限")  '设置增行的权限
                    dr2("分组") = dr1("分组")  '设置增行的分组
                    lst.add(key,dr2)  '将新增行添加到字典中,以便接下来检索
                End If
            Next
        End If
    Next    
    dt.RemoveFor("[用户] <>  '"& value &"'")    
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView3")
    trv.BuildTree(dt,"用户|分组|权限")
End If


查询用户未有的权限不知如何写代码，请帮忙指点一下

[此贴子已经被作者于2016/10/24 19:51:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
无限5180
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		  发帖心情 Post By：2016/10/24 20:39:00 [显示全部帖子]

我上传的查询用户取得权限的代码没有问题，截图上也显示了，只是不会写查询用户未取得权限的代码不会写，这个还要什么测试，我不明白

 回到顶部
帅哥哟，离线，有人找我吗？
无限5180
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		  发帖心情 Post By：2016/10/24 21:39:00 [显示全部帖子]

好的，谢谢，我试一下

 回到顶部
帅哥哟，离线，有人找我吗？
无限5180
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		  发帖心情 Post By：2016/10/24 22:01:00 [显示全部帖子]

您
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

好老师我把例子做好了，请指点，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
无限5180
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00 		  发帖心情 Post By：2016/10/24 22:48:00 [显示全部帖子]

通过老师的代码，给了我很多启示，非常感谢老师
[此贴子已经被作者于2016/10/24 23:11:06编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询