标题：[求助]数据加载后筛选目录树及时更新（搞定）

主窗口的目录树可以根据登录窗口选定的加载数据显示，但不能根据数据加载窗口（右侧）选定的数据更新。

狐爸指教

顶

数据重新加载后，在BuildDataTree一次就行啊

这个只有登录时加载选定有效，在数据加载窗口重新加载后无效。

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("申请表").Filter ="[乡名] = '" & Value(0) & "'"
    Case 1
        Tables("申请表").Filter ="[乡名] = '" & Value(0) & "' And [村名] = '" & Value(1) & "'"
    Case 2
        Tables("申请表").Filter ="[乡名] = '" & Value(0) & "' And [村名] = '" & Value(1) &"' And [组别] = '" & Value(2) & "'"
    Case 3
        Tables("申请表").Filter ="[乡名] = '" & Value(0) & "' And [村名] = '" & Value(1) &"' And [组别] = '" & Value(2) & "'And [登记权利] = '" & Value(3) & "'"
    Case 4
        Tables("申请表").Filter ="[乡名] = '" & Value(0) & "' And [村名] = '" & Value(1) &"' And [组别] = '" & Value(2) & "'And [登记权利] = '" & Value(3) & "'And [林种] = '" & Value(4) & "'"
End Select

没有看懂

左侧是筛选目录树我想要的是：它能根据右侧选定的加载数据而变化。如何设置代码？比如在右侧选择某个乡加载，左侧只出现某个乡的，如全部加载则是所有乡的。

那就在根据加载的数据BuildDataTree一次
如果是筛选也没事，BuildDataTree可以设置条件的

怎样设置？烦劳做一下

在加载所有数据按钮的最后再加上：

e.From.Controls("XXX").BuildDataTree(.....)