以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [已解决]怎样实现这种级码式的多值筛选？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34374)
--  作者：everybody
--  发布时间：2013/6/6 14:53:00
--  [已解决]怎样实现这种级码式的多值筛选？

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

代码很简单：

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
--  发布时间：2013/6/6 15:00:00
--  
晕,帮助不是有吗=====> 搜索 [筛选树]
--  作者：everybody
--  发布时间：2013/6/6 15:08:00
--  
don大哥：

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

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

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

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

原谅我，学艺不精，不会写代码
     
--  作者：don
--  发布时间：2013/6/6 16:19:00
--  
选中父节点,则把其子节点孙节点也筛选出来?

如选中:华南分公司

华南分公司
华南子公司1
华南子公司2
华南子公司2的孙公司1
华南子公司2的孙公司2
--  作者：don
--  发布时间：2013/6/6 16:35:00
--  

\'父,子,孙一起出来的
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
Next
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 & "\'"
Next
If flt IsNot Nothing Then
    flt = "单位 In(" &  flt.Substring(1) & ")"
    Tables("表A").Filter = flt
End If