运行"授权"窗,点中左边树中某节点,右键弹出复选框,复选后"确定",左边这个树节点下的子节点全没了. 现已基本确定问题出在If nd.checked=True Then
这句上,但不知怎么修改.相关代码如下
e.Form.Controls("TreeView1").BuildTree("操作员", "名称")
Dim tr As WinForm.TreeView = Forms("授权").Controls("TreeView1")
Dim tnd As WinForm.TreeNode = tr.SelectedNode
'''''''''''''''
tr.SelectedNode.Nodes.Clear() '清除所有子节点
For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").allnodes '遍历本窗口选中节点下的所有子节点
If nd.checked=True Then
tnd.Nodes.Add(nd.name,nd.text)
End If
Next
e.form.Close()