主题：[求助]目录树代码

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

trv.BuildTree("基本情况","收治科室|姓名")

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

    If nd.level=1 Then

        nd.Text = nd.text & "(" & nd.DataRow("patientsID") & ")"

        Dim node As WinForm.TreeNode

        Dim cnode As WinForm.TreeNode

        Dim ccnode As WinForm.TreeNode

        node = nd.Nodes.Add("地址信息","地址信息","007.png")

        cnode = node.Nodes.Add("我是第四级")

        ccnode = cnode.Nodes.Add("我是第五级")

    End If

Next