以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  复选框  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178502)

--  作者：BG小白 --  发布时间：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小白 --  发布时间：2022/7/7 8:02:00 --   此主题相关图片如下：123.png

--  作者：有点蓝 --  发布时间：2022/7/7 9:38:00 --   dim UserName as string = e.Cookies("username") For Each drw As DataRow In DataTables("模块").select("姓名=\'" & UserName & "\'")

--  作者：BG小白 --  发布时间：2022/7/7 14:57:00 --   是不是我没有表达清楚，就是我想显示所有权限，然后根据用户的权限，把已有权限显示勾选

--  作者：有点蓝 --  发布时间：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