Foxtable(狐表)用户栏目专家坐堂 → [分享]通用多级目录树筛选


  共有144158人关注过本帖树形打印复制链接

主题:[分享]通用多级目录树筛选

帅哥哟,离线,有人找我吗?
狐狸爸爸
  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/28 20:58:00 [只看该作者]

在大家的基础上再改一下:

 

Dim nms As String() ={"产品","客户","雇员","折扣","日期"}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
For Each nd In e.node.allNodes
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do
    If pd Is Nothing Then
        Exit Do
    Else
        pd.Checked = False
        pd = pd.ParentNode
    End If
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        For i As Integer = 0 To rts.length -1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = '" & rts(i) & "'"
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("订单").Filter  = flt


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/28 21:16:00 [只看该作者]

加上数据类型判断,更加通用,用于加载树也可以的:

 

Dim nms As String() ={"产品","客户","雇员","折扣","日期"}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
For Each nd In e.node.allNodes
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do
    If pd Is Nothing Then
        Exit Do
    Else
        pd.Checked = False
        pd = pd.ParentNode
    End If
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        Dim qte As String  = ""
        For i As Integer = 0 To rts.length -1
            Dim dc As DataCol = DataTables("订单").DataCols(nms(i))
            If dc.IsString  Then
                qte = "'"
            ElseIf dc.IsDate Then
                qte = "#"
            End If
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qte & rts(i) & qte
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("订单").Filter  = flt


 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2013/3/28 23:15:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:gx.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2013/3/28 23:24:00 [只看该作者]



图片点击可在新窗口打开查看此主题相关图片如下:gx-.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-3-28 23:30:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lpxjw_zyl
  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:376 积分:4189 威望:0 精华:0 注册:2008/9/1 14:18:00
  发帖心情 Post By:2013/3/29 0:02:00 [只看该作者]

fffffffffffffffffff

 回到顶部
帅哥哟,离线,有人找我吗?
cxabc123
  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:810 积分:5250 威望:0 精华:0 注册:2009/2/6 10:38:00
  发帖心情 Post By:2013/3/29 9:17:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-28 21:16:00的发言:

加上数据类型判断,更加通用,用于加载树也可以的:

 

Dim nms As String() ={"产品","客户","雇员","折扣","日期"}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
For Each nd In e.node.allNodes
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do
    If pd Is Nothing Then
        Exit Do
    Else
        pd.Checked = False
        pd = pd.ParentNode
    End If
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        Dim qte As String  = ""
        For i As Integer = 0 To rts.length -1
            Dim dc As DataCol = DataTables("订单").DataCols(nms(i))
            If dc.IsString  Then
                qte = "'"
            ElseIf dc.IsDate Then
                qte = "#"
            End If
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qte & rts(i) & qte
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("订单").Filter  = flt

建议写入帮助。


 回到顶部
帅哥哟,离线,有人找我吗?
独木成林
  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:494 威望:0 精华:0 注册:2012/3/20 16:06:00
  发帖心情 Post By:2013/3/30 13:18:00 [只看该作者]

好东西,一定顶。

 回到顶部
美女呀,离线,留言给我吧!
whh9077
  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:129 威望:0 精华:0 注册:2012/11/8 22:45:00
  发帖心情 Post By:2013/3/31 23:48:00 [只看该作者]

谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
zsrwh
  79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:521 威望:0 精华:0 注册:2012/12/24 17:24:00
  发帖心情 Post By:2013/4/1 13:30:00 [只看该作者]

学习下

 回到顶部
帅哥哟,离线,有人找我吗?
delxkjhgq
  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1013 威望:0 精华:0 注册:2012/11/6 14:55:00
  发帖心情 Post By:2013/4/1 14:07:00 [只看该作者]

看看。。


 回到顶部