主题：[求助]目录树相关问题

Dim trv As WinForm.TreeView = Forms("导航窗口"）.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

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

        node=nd.nodes.add("病史资料")

        node=nd.nodes.add("体征资料")

        cnode=node.nodes.add("系统检查")

        cnode=node.nodes.add("专科检查")

        

        node=nd.nodes.add("检验资料")

        

        node=nd.nodes.add("检查资料")

        cnode=node.nodes.add("放射检查")

        cnode=node.nodes.add("B超检查")

        

        node=nd.nodes.add("治疗信息")

        cnode=node.nodes.add("手术治疗")

        cnode=node.nodes.add("非手术治疗")

        

        node=nd.nodes.add("效果评价")

        cnode=node.nodes.add("主观评价")

        cnode=node.nodes.add("客观评价")

        nd.nodes.add("其它资料")

    End If

Next

trv.ResumeRedraw '恢复绘制目录树

Dim trv As WinForm.TreeView = Forms("导航").Controls("TreeView2")

    Dim nd As WinForm.TreeNode = trv.SelectedNode

    If nd.IsSelected = False Then

        If MessageBox.Show("请选择收治科室,否则无法新增病例!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

            If nd.IsSelected=False Then

                Return

            End If

            Return

        End If

    Else

        Dim txt As String = trv.SelectedNode.FullName.split("\")(0)

        Dim r As Row = t.AddNew()

        r("收治科室")=txt

    End If