主题：[求助]checed属性用于树节点的情况

第一行应该去掉，因为你单击确定重新生成目录树，等于所有节点又回到初始状态了啊：
 
  
'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
       messagebox.show("abd")
       tnd.Nodes.Add(nd.name,nd.text)
   End If
Next
e.form.Close()

所以说，做例子是最好的，你早点做例子，我们早就帮你解决了。