主题：[求助]用checed这个属性的问题

If nd.checked=True Then
       tnd.Nodes.Add(nd.name,nd.text)
   End If

判断一个树如复选上,就在另一个树上加节点.但加不上去

去掉这个判断,那就全加上了

请问什么毛病?

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()

是遍历的,不是单个的,所以有的条件是成立的,有的不成立