以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据加载后筛选目录树及时更新（搞定）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6544)
--  作者：易服
--  发布时间：2010/4/8 11:17:00
--  [求助]数据加载后筛选目录树及时更新（搞定）
主窗口的目录树可以根据登录窗口选定的加载数据显示，但不能根据数据加载窗口（右侧）选定的数据更新。
[此贴子已经被作者于2010-4-9 10:27:03编辑过]
--  作者：易服
--  发布时间：2010/4/8 15:31:00
--  
狐爸指教
--  作者：易服
--  发布时间：2010/4/8 16:34:00
--  
顶
--  作者：狐狸爸爸
--  发布时间：2010/4/8 16:46:00
--  
数据重新加载后，在BuildDataTree一次就行啊
--  作者：易服
--  发布时间：2010/4/8 16:58:00
--  
这个只有登录时加载选定有效，在数据加载窗口重新加载后无效。

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
--  作者：狐狸爸爸
--  发布时间：2010/4/8 16:58:00
--  
没有看懂
--  作者：易服
--  发布时间：2010/4/8 17:11:00
--  
左侧是筛选目录树我想要的是：它能根据右侧选定的加载数据而变化。如何设置代码？比如在右侧选择某个乡加载，左侧只出现某个乡的，如全部加载则是所有乡的。
[此贴子已经被作者于2010-4-8 17:18:46编辑过]
--  作者：狐狸爸爸
--  发布时间：2010/4/8 17:16:00
--  

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

[此贴子已经被作者于2010-4-8 17:17:28编辑过]
--  作者：易服
--  发布时间：2010/4/8 17:22:00
--  
怎样设置？烦劳做一下
[此贴子已经被作者于2010-4-8 17:22:35编辑过]
--  作者：狐狸爸爸
--  发布时间：2010/4/8 17:33:00
--  
在加载所有数据按钮的最后再加上：

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