主题：[求助]关于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