Dim 角色名称 As String = args(0)
Dim 系统编号 As String = args(1)
Dim px As Boolean = args(2)
Dim dm As DataRow
Dim Arys() As String
Dim lv As String
Functions.Execute("角色权限","角色编号 = '" & 角色名称 & "'")
Select Case px
Case True
If 权限集合.Contains(系统编号) Then
Else
权限集合.Add(系统编号)
End If
Case False
If 权限集合.Contains(系统编号) Then
权限集合.Remove(系统编号)
End If
End Select
Arys = 权限集合.ToArray()
lv = String.Join(",",Arys)
dm= DataTables("角色").Find("角色编号 = '" & 角色名称 & "'")
dm("系统编号") = lv
=========================
刚研究一位大大的权限设置代码,发现的,是我火星了吗?
[此贴子已经被作者于2013-10-26 23:06:08编辑过]