Dim tr1 As WinForm.TreeView = Forms("角色授权").Controls("TreeView1")
If tr1.SelectedNode Is Nothing Then
msgbox("请选择一个角色")
Return ""
End If
Dim role As String = tr1.SelectedNode.Text.Replace("←","")
Dim tr2 As WinForm.TreeView = Forms("角色授权").Controls("TreeView2")
For Each n As WinForm.TreeNode In tr2.AllNodes
If n.Level = 1 AndAlso n.Checked
Dim dr As DataRow = DataTables("角色授权").Find("窗口='" & n.ParentNode.Text & "' And 控件='" & n.Text & "'")
If dr Is Nothing Then
dr = DataTables("角色授权").AddNew
dr("窗口") = n.ParentNode.Text
dr("控件") = n.Text
dr("角色") = role
Else
If dr.IsNull("角色")
dr("角色") = role
Else
Dim lst As new List(of String)
lst.AddRange(dr("角色").split(","))
If lst.Contains(role) = False Then
lst.Add(role)
End If
dr("角色") = String.Join(",",lst.ToArray)
End If
End If
End If
Next
加好友 
发短信
Post By：2019/12/31 13:07:00 [只看该作者]
