[已解决]怎样实现这种级码式的多值筛选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一、这是根据帮助里面做的级码式目录树.

代码很简单：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("表a","级码","单位", ".")

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130606145032.png

二、想改造以下代码（也是帮助里面的范本），实现可筛选的多值目录树，即选目录树里面哪一级公司，就筛选出相应的公司

求大大出手示意！

——————————————————————这是帮助里面的范本——————————————————

3、将目录树的AfterCheckNode事件代码设置为：

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
      If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or " '注意用or而不是And
        End If
        If nd.Level = 0 Then '注意下面的条件都要用括号括起来
            flt = flt & "( 产品 = '" & nd.Text & "')"
        Else
            flt = flt & "( 产品 = '" & nd.ParentNode.Text & "' And 客户 = '" & nd.Text & "')"
        End If
    End If
Next
Tables("订单").Filter = flt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

[此贴子已经被作者于2013-6-7 8:26:57编辑过]

晕,帮助不是有吗=====> 搜索 [筛选树]

don大哥：

1、帮助里面的多值筛选目录树，是基于表格里面有数值的，也就是同时存在一级node，二级node，三级node。。的，这个的确没问题，我会抄用

2、但是，我这个是基于级码方式生成的目录树，表里面是没有一级node的，二级node的。。。

所以，多值筛选时，其判断逻辑应该是：

第一步，把遍历每个选中的node 的node.text（不是node.name），并保存一个筛选格式的值，如flt

第二步，表筛选flt值。

原谅我，学艺不精，不会写代码

选中父节点,则把其子节点孙节点也筛选出来?

如选中:华南分公司

华南分公司

华南子公司1

华南子公司2

华南子公司2的孙公司1

华南子公司2的孙公司2

'父,子,孙一起出来的

Dim flt As String

Dim dr As DataRow

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.Checked Then

dr = DataTables("表A").Find("单位 = '" & nd.text & "'")

flt+ = " Or 级码 Like '" & dr("级码") & "%'"

End If

If flt IsNot Nothing Then

flt = flt.Substring(4)

Tables("表A").Filter = flt

End If

'父是父,子孙是子孙的

Dim flt As String

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.Checked Then flt+ = ",'" & nd.text & "'"

If flt IsNot Nothing Then

flt = "单位 In(" & flt.Substring(1) & ")"

Tables("表A").Filter = flt

End If

主题：[已解决]怎样实现这种级码式的多值筛选？