主题：单击树有问题

呵呵，你这个不是用颜色标出来了吗？还要提示干什么？

狐爸，我看到有些软件为实现，想看是怎么实现的，到时可用的着呀。

可以的，目前你只需知道可以就行，这种问题没有什么意义，现在不需要去研究他。

好的，谢谢狐爸指点。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:企业信息管理平台1.table

狐爸，打开“组织机构”窗体，单击树目录通过右键快捷菜单的新增，出现“新增组织机构”窗体，想实现上级部门就是单击树目录节点部门的全称，是否可实现呀。

“新增组织机构”窗体: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

谢谢！学习当中

当击树最底层时报错，狐爸不知是怎么回事？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:企业信息管理平台1.table