主题：[原创]树的问题

很简单啊，既然可以用来筛选，就可以用来定位：

http://help.foxtable.com/topics/0917.htm

 

With CurrentTable
    Dim r As Integer
    r = .FindRow("[树] = '" & e.Node.FullPath & "'", 0，True ) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

1、加图标很容易，你先看看帮助

2、你必须自己做一个重命名的窗口，用户输入新的名称，单击确定后，用代码修改节点名称，同样用代码修改相关列的内容。

AllNodes是个集合，是很多个节点，你设置其fullpath属性有意义吗？ 再说allnodes有fullpath属性吗？