Foxtable(狐表)用户栏目专家坐堂 → list 求助


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

主题:list 求助

帅哥哟,离线,有人找我吗?
outcat
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
list 求助  发帖心情 Post By:2020/8/1 19:24:00 [只看该作者]

DataTables("用户权限表").LoadFilter = ""
DataTables("用户权限表").Load 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '停止绘制
lvw.Columns.Clear() '清除原来的列
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
'lvw.View = ViewMode.Details  '显示模式为详细信息
lvw.GridLines = True '显示网格线
lvw.View = ViewMode.LargeIcon  '显示模式为详细信息
Dim cls() As String = {"权限名称","权限类别"} '指定要显示的各列
Dim wds() As Integer = {300,300} '定义列宽
For i As Integer = 0 To  cls.Length - 1  '增加列
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名
    c.Text = cls(i) '指定标题,这里标题和列名相同
    c.Width = wds(i) '指定列宽
Next

For Each qxlb As String In  DataTables("权限名称表").GetValues("权限分组")
    
    Dim dr As DataRow
    
    'dr = DataTables("用户权限表").sqlfind( "权限类别 = '系统维护' and 权限分组 = '" & qxlb & "' 用户='" & _UserName & "'")
dr = DataTables("用户权限表").sqlfind( "权限分组 = '" & qxlb & "' 用户='" & _UserName & "'")
    

    If dr IsNot Nothing Then
        
        Dim grp As  WinForm.ListViewGroup =  lvw.groups.Add() '增加一行
        grp.Text = qxlb
        grp.Name = qxlb
    Else
        Return
    End If
Next

For Each dr As DataRow In DataTables("权限名称表").DataRows
    Dim Key As String = dr("图标")
    Dim r As  WinForm.ListViewRow =  lvw.rows.Add() '增加一行
    ' 图片
    
    'lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") '添加代表这个国家的一对图标
    lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") '添加代表这个国家的一对图标
    r.ImageKey = Key '指定图标键值
    
    '   图片
    r.Group = dr("权限分组")
    
    For Each cl As String In cls '逐列取值
        Select Case cl
            Case "权限名称","权限类别","用户"
                r(cl) = dr(cl)
        End Select
    Next
Next
lvw.ResumeRedraw() '恢复绘制


老师,我的红色是从 用户权限表里,判断有没有这个用户,和这个用户分组,现在系统里有用户,拥有这个分组的权利,可是不能动态的加载分组,请老师看一下,哪里不对了

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/2 10:31:00 [只看该作者]

dr = DataTables("用户权限表").sqlfind( "权限分组 = '" & qxlb & "' and 用户='" & _UserName & "'")

 回到顶部
帅哥哟,离线,有人找我吗?
outcat
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/8/3 11:24:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
   


老师,帮忙给看一看,这个代码在导航窗体  AfterLoad 事件里,现在我注释了,全部显示,我想想让用户登录,只要有权限,就显示权限和分组,如果该分组下一个权限都没有,就分组也不要显示,我里面有控制权限的脚本,可不知为啥不起作用,

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/3 11:55:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:远航牛奶配送系统list导航.zip


 回到顶部
帅哥哟,离线,有人找我吗?
outcat
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2020/8/3 12:37:00 [只看该作者]

老师,多谢,你很强大。

 回到顶部