主题：[求助]关于TreeView的求助

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

Dim nd1 As WinForm.TreeNode = trv1.SelectedNode

Dim dr As DataRow

For Each cnd As WinForm.TreeNode In e.Node.AllNodes '取消子节点的选中标记,因为选中父节点,就不要选中子节点了
   
    cnd.Checked = e.node.Checked
   
Next

If nd1.Level = 0 Then
   
    dr = _dt事务经办人员指派.Find("分组 = '" & nd1.Name & "' And 事务 Is Null")
   
Else
   
    dr = _dt事务经办人员指派.Find("分组 = '" & nd1.ParentNode.Name & "' And 事务 = '" & nd1.Name & "'")
   
End If

If dr IsNot Nothing Then
   
    Dim nms As String
   
    For Each nd2 As WinForm.TreeNode In trv2.AllNodes
       
        If nd2.Checked AndAlso nd2.Level > 0 Then
           
            nms  = nms & "," &  nd2.Name
           
        End If
       
    Next
   
    If nms > "" Then
       
        dr("经办人员") = nms.Trim(",")
       
    Else
       
        dr("经办人员") = Nothing
       
    End If
   
   
End If

加上下面这段全选的代码

For Each nd As WinForm.TreeNode In e.node.AllNodes
    nd.Checked = e.Node.Checked
Next

If e.Node.Checked = False Then
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Do While pnd IsNot Nothing
        pnd.Checked = False
        pnd = pnd.ParentNode
    Loop
Else
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Dim flag As Boolean = True
    Do While pnd IsNot Nothing
        If flag = True
            For Each nd As WinForm.TreeNode In pnd.Nodes
                If nd.Checked = False Then
                    flag = False
                    Exit For
                End If
            Next
        End If
        pnd.Checked = flag
        pnd = pnd.ParentNode
    Loop
End If

 afterLoad事件和左边的目录树的事件要改。

 上传实例。