Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复选框


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

主题：复选框
帅哥哟，离线，有人找我吗？
BG小白
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4102 威望：0 精华：0 注册：2019/11/14 23:06:00 		复选框  发帖心情 Post By：2022/7/7 7:56:00 [只看该作者]

我想用weui里面的复选框来做可视化授权
    Case "addnew.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","addnew.htm")
            With wb.AddCheckGroup("form1","偏好","授权")
                For Each drw As DataRow In DataTables("模块").DataRows
                    .Add(drw("模块名称"),drw("模块名称"))
                Next
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            e.WriteString(wb.Build)
这样显示了所有选项，但是该如何把用户已经有的权限显示勾选呢？
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4102 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2022/7/7 8:02:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dim UserName as string = e.Cookies("username")

For Each drw As DataRow In DataTables("模块").select("姓名='" & UserName & "'")

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


加好友 发短信
等级：三尾狐 帖子：603 积分：4102 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2022/7/7 14:57:00 [只看该作者]

是不是我没有表达清楚，就是我想显示所有权限，然后根据用户的权限，把已有权限显示勾选

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/7 15:03:00 [只看该作者]

               For Each drw As DataRow In DataTables("模块").DataRows
if 有权限
.Add(drw("模块名称"),drw("模块名称"),true)
else
                    .Add(drw("模块名称"),drw("模块名称"))
endif
                Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04541 秒, 4 次数据查询