以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多值字段权限控制的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90843)
--  作者：douglas738888
--  发布时间：2016/9/22 17:27:00
--  多值字段权限控制的问题

请教蓝老师，下面代码基本能通过授权表来实现在授权表的分组名写入多值对窗口控件的权限控制，但是一行一个的输入控件名称工作量好大，怎样能在一个单元格里面写入多个控件名称统一控制不可见或不可编辑

 

For Each dr1 As DataRow In DataTables("授权表").Select("\',\' + 分组名 + \',\' like \'%," & _UserGroup & ",%\' And 窗口 = \'" & e. Form.Name & "\' and \',\' + 控件 + \',\' like \'% \'")    黄色部分有问题
    e.Form. Controls(dr1("控件")).Visible = Not dr1("不可见")
    e.Form. Controls(dr1("控件")).Enabled = Not dr1("不可编辑")
Next
--  作者：有点蓝
--  发布时间：2016/9/22 17:46:00
--  
Dim dr1 As DataRow  =  DataTables("授权表").Find("\',\' + 分组名 + \',\' like \'%," & _UserGroup & ",%\' And 窗口 = \'" & e. Form.Name & "\'")
Dim ctls() As String = dr1("控件").split("控件字段的分隔符")
For Each c As String In ctls
    e.Form.Controls(c).Visible = Not dr1("不可见")
    e.Form.Controls(c).Enabled = Not dr1("不可编辑")
End If