如何在树视图 Access/VBA 中上下移动根节点

Question

好的。我在树视图上做了很多工作，我认为允许用户根据他们认为合适的方式上下移动树视图的节点会很方便。我的结构只是一个简单的两级树视图，但是每个根节点都必须有一个子节点。例如：

Root
  child
  child
  child
Root
  child
  child
Root
  child
  child
  child
  child

我编写了代码，您一次只能从根节点中勾选一个框。我想要做的是单击一个按钮，然后让选中的根节点向上（或向下）移动一个位置（当然也带着它的子节点）。

我能想象这项工作的唯一方法是完全重建节点，比以前高一级。当节点开始有更多子节点等时，这似乎太耗时了。

当我搜索时，我发现了大量 C# 结果，但由于我使用的是 VBA，所以它对我没有任何帮助。如果有人在重建整个节点之外有任何建议，我很乐意听到。谢谢

Answer 1

我解决这个问题的方法是将节点的键和文本保存在临时变量中，清除键，然后切换它们。

此时，我循环遍历所有子节点并将它们添加到节点数组中。我将每个节点的 Nodes.Parent 属性设置为相反的节点，然后一切就基本完成了。

这是可能的，因为表中的数据取决于用户如何构建树视图，因此一旦他们让树视图显示他们想要的方式，我就可以保存我需要的信息并在他们打开该特定记录备份时重建它。我希望这一点很清楚，但我下面有一些代码块可以帮助解决这个问题。

 Private Sub MoveUP()
 Dim n As Node
 Dim key1 As String
'etc.....

 key1 = n.Key
 text1 = n.Text
 key2 = n.Previous.Key
 text2 = n.Previous.Text

'We have to clear out the keys now.
 n.Key = ""
 n.Previous.Key = ""

'Now replace the keys
 n.Key = key2
 n.Text = text2
 n.Previous.Key = key1
 n.Previous.Text = text1

 Call SwitchParents(n, n.Previous)
 End Sub

^上面的代码用于将 n 向上移动到 n.Previous 位置
下面的代码是切换节点的子节点（如果有的话），

 Private Sub SwitchParents(n1 As Node, n2 As Node)
 Dim nds1() As Node 'Declare with no size to ReDim later
 Dim nds2() As Node
 Dim c As Node 'this is the child node we will use to push into the array
 Dim i As Integer 

 i = n1.Children
 ReDim nds1(0 To i)
 Set c = n1.Child
 'Notice in both loops that i remains the number of children, the arrays fill backwards
 'because when you reassign the nodes.Parent property, the node jumps to the beginning,
 'so we pack them backwards and they come out displaying the same way they did before.
 Do While Not (c Is Nothing)
   i = i - 1
   Set nds1(i) = c
   Set c = c.Next
 Loop

 i = n2.Children
 ReDim nds2(0 To i)
 Set c = n2.Child
 Do While Not (c Is Nothing)
   i = i - 1
   Set nds2(i) = c
   Set c = c.Next
Loop

If Not IsEmpty(nds1()) Then
  For i = 0 To UBound(nds1()) - 1
    Set nds1(i).Parent = n2
  Next i
End If

If Not IsEmpty(nds2()) Then
  For i = 0 To UBound(nds2()) - 1
    Set nds2(i).Parent = n1
  Next i
End If
End Sub

我希望这个示例能够帮助任何具有类似两级树结构并希望做这样的事情的人。我是通过单击按钮来完成此操作的，但是可以将其重新设计为拖放方法。