Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何让授权表中用户分组与用户名连动？


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

主题：如何让授权表中用户分组与用户名连动？
帅哥哟，离线，有人找我吗？
zsxx999
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00 		如何让授权表中用户分组与用户名连动？  发帖心情 Post By：2019/9/17 16:39:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/17 17:07:00 [只看该作者]

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "表名" Then '如果正在编辑的是县市列
        Dim sz() As String = {"动态列表","Code","动态列表","动态列宽列显设置","Users","授权表"}
        Dim Listsz As new List (of String)
        Listsz.AddRange(sz)
        Dim ListTbName As String
        For Each tb  As Table In Tables
            If Listsz.Contains(tb.name) = False Then
                ListTbName = ListTbName & "|" & tb.name
            End If
        Next
        ListTbName = ListTbName.trim("|")
        e.Col.ComboList = ListTbName
    ElseIf e.Col.Name = "分组名" Then
        '=======生成分组名列表=======
        Dim ListUserGroup As String
        For Each us  As UserInfo  In users
            ListUserGroup = ListUserGroup & "|" & us.Group
        Next
        ListUserGroup = ListUserGroup.trim("|")
        e.Col.ComboList = ListUserGroup
    ElseIf e.Col.Name = "用户名" Then
        If e.Row.IsNull("分组名") Then
            e.Col.ComboList = Nothing
        Else
             e.Col.ComboList = DataTables("Users").GetComboListString("Name","Type=2 and Config like '%" & chr(11) & e.Row("分组名") & chr(11) & "%'")
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zsxx999
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00 		  发帖心情 Post By：2019/9/17 17:24:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
zsxx999
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00 		  发帖心情 Post By：2019/9/17 17:25:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/17 17:50:00 [只看该作者]

prepareedit事件

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


加好友 发短信
等级：五尾狐 帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00 		  发帖心情 Post By：2019/9/17 19:52:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/17 20:32:00 [只看该作者]

For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Group & "' and 表名 is not null" )

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询