Dim tr As WinForm.TreeView Dim pd As WinForm.TreeNode tr = Forms("窗口1").Controls("TreeView1") If tr.SelectedNode Is Nothing Then msgbox("请选择节点") Else pd = tr.SelectedNode.ParentNode If pd Is Nothing Then tr.Nodes.Add("新节点") Else pd.Nodes.Add("新节点") End If End If
加好友 
发短信
Post By：2017/7/6 23:22:00 [显示全部帖子]
