请看图片

此主题相关图片如下：捕获.png

这个是原有的内容

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim drs As List(of DataRow)
    drs = DataTables(e.form.Name & "_Table1").Select("部门 = \'" & nd.Text & "\'")
    If drs.Count > 0 Then
           For Each dr As DataRow In drs
              nd.Nodes.Add(dr("姓名"))
           Next
    End If
Next

用循环的方式 向人员表   获取部门信息 然后添加到目录树，

发现 层级有点问题

此主题相关图片如下：捕获2.png

先添加的 走到最低部去了 ， 不知道原因在哪，帮忙看看