主题：数据提取问题

比如，会计科目递归函数目录树，节点长度不固定，有的只有一个节点01，有的有两个节点01、0101，有的有三个节点01、0101、010101等，双击任意一个节点，实现利用目录树快速输入“科目名称和科目代码。请教下列代码如何修改?

If e.node.nodes.count = 0 Then

    Dim tr As Row

    Dim dr As DataRow = e.Node.DataRow

    If e.Form.DropTable IsNot Nothing Then

        tr = e.Form.DropTable.Current

    Else

        Dim nm As String = e.Form.DropDownBox.BindingField

        nm = nm.Split(".")(0)

        tr = Tables(nm).Current

    End If

    tr("科目名称") = dr("科目名称")'自动录入数据

    tr("科目代码") = dr("科目代码")     

     e.Form.DropDownBox.Value = tr("科目名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.  

    Forms("级码目录树输入").Controls("TreeView1").CollapseAll '关闭目录树所有节点     

    e.Form.DropDownBox.CloseDropdown()

End If

也就是点第一节点，输入第一节点的内容，双击第二节点，输入第二节点内容，依次