[求助]数据加载后筛选目录树及时更新（搞定） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据加载后筛选目录树及时更新（搞定）

共有12910人关注过本帖树形打印复制链接主题：[求助]数据加载后筛选目录树及时更新（搞定）

易服

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

[求助]数据加载后筛选目录树及时更新（搞定） 发帖心情

Post By：2010/4/8 11:17:00 [只看该作者]

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

[此贴子已经被作者于2010-4-9 10:27:03编辑过]

易服

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2010/4/8 15:31:00 [只看该作者]

狐爸指教

易服

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2010/4/8 16:34:00 [只看该作者]

顶

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/4/8 16:46:00 [只看该作者]

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

易服

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：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