上移代码：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
nd.MoveUp()
End If
tr.Select
关闭代码：
Dim tr As WinForm.TreeView = Forms("主窗口").Controls("TreeView1")
Dim fn As String = ProjectPath & "Product.foxtr"
tr.Save(fn)
''tr = Forms("主窗口").Controls("TreeView1")
tr.BuildTree("目录表", "一级目录|二级目录|三级目录|四级目录|五级目录")
e.Form.Close
蓝总：节点上移 保存不了，重新打开还是老样子
加好友 
发短信
Post By：2021/9/1 16:31:00 [只看该作者]
