Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
If e.node.DataRow("状态") ="0" Then
Dim Result As DialogResult
Result = MessageBox.Show("是否激活?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
e.Node.DataRow("状态") ="1"
Else
Return
End If
Else
Dim nms As New List(of String)
If e.node.DataRow.IsNull("用户列表") = False Then
nms.AddRange(e.node.DataRow("用户列表").Split(","))
For Each nd As WinForm.TreeNode In trv2.AllNodes
nd.Checked = nms.Contains(nd.Name)
Next
End If
End If