Dim dr As Row = Tables("角色管理").Current
If dr Is Nothing Then Return
Dim drs As List(Of DataRow) = DataTables("授权").Select("加载范围 is not null")
If drs.Count > 0 Then
Dim sqjh As String
Dim fwjh As String
For Each r As DataRow In drs
fwjh &= "," & r("权限") & "|" & r("加载范围")
Next
dr("加载范围集合") = fwjh.TrimStart(",")
Dim drs1 As List(Of DataRow) = DataTables("授权").Select("授权 = true")
If drs1.Count > 0 Then
For Each r As DataRow In drs1
sqjh &= "," & r("权限")
Next
dr("授权集合") = sqjh.TrimStart(",")
Tables("角色管理").Current.Save() '保存当前行
End If
End If
'将新的角色权限更新至用户管理表里面
For Each drss As DataRow In DataTables("角色管理").DataRows
DataTables("用户管理").ReplaceFor("加载范围集合", drss("加载范围集合"), "group = '" & drss("角色名称") & "'")
DataTables("用户管理").ReplaceFor("授权集合", drss("授权集合"), "group = '" & drss("角色名称") & "'")
'---信息提示开始----
'_newp = "角色[更新]成功"
'Forms("透明窗口").show
'Return
'---信息提示结束---
Next
' e.Form.Close()
加好友 
发短信
Post By：2016/8/30 15:11:00 [显示全部帖子]
