主题：单击树有问题

“新增组织机构”窗体:afterload:

If Forms("组织机构").opened
    Dim trv As WinForm.TreeView = Forms("组织机构").Controls("TreeView1")
    Dim pd As WinForm.TreeNode
    pd = trv.SelectedNode
    If pd.name.length = 1

        Forms("组织机构_新增").Controls("ComboBox1").value = pd.text
    ElseIf pd.name.length = 2

        Forms("组织机构_新增").Controls("ComboBox1").value = pd.ParentNode.text
    Else

        Forms("组织机构_新增").Controls("ComboBox1").value = pd.ParentNode.text.substring(pd.ParentNode.name.length)
    End If
End If