Foxtable(狐表) → 用户栏目 → 专家坐堂 → 三级以上目录树多选筛选树代码如何写，请求帮助


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

主题：三级以上目录树多选筛选树代码如何写，请求帮助
帅哥哟，离线，有人找我吗？
cxabc123
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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

非常感谢回复这么快，上传图片，这样点选时出现错误提示
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/3/20 16:03:00 [只看该作者]

6楼不是提醒了吗!

图片点击可在新窗口打开查看此主题相关图片如下：07.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cxabc123
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

您测试看看，您的建议是否正确

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/3/20 16:12:00 [只看该作者]

测试成功!

图片点击可在新窗口打开查看此主题相关图片如下：04.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-3-20 16:12:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/3/20 16:16:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/3/20 16:20:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
cxabc123
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
   
    Dim Inum As Integer = e.Node.ParentNode.Nodes.Count
    For Each nd As WinForm.TreeNode In e.Node.ParentNode.Nodes
        If nd.Checked Then
            Inum = Inum -1
        End If
    Next
   
   
    If Inum = 0 Then
        e.Node.ParentNode.Checked = True
    End If
End If
这段代码是什么意思，请您指教一下。

再一方面，如果有四级节点，是否可以简单套用。
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

10楼已经说了： 如果全选了子选项，父选项会显示为选中。否则，清空父节点的勾选。

 

应该可以套用的，只是筛选条件增加到第四级即可。
 回到顶部
帅哥哟，离线，有人找我吗？
cxabc123
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

还是有点小问题，如图


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130321082601.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ericsky
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：361 积分：3810 威望：0 精华：0 注册：2012/4/16 20:20:00 		  发帖心情 Post By：2013/3/21 9:21:00 [只看该作者]

我也刚好碰到这个问题，昨晚在muhua版主的代码中找到了其中的逻辑，做好了5级筛选代码，但是这个代码太笨重了，我不懂得简化，请高手来指点简化一下代码。

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String

For Each nd As WinForm.TreeNode In e.Node.allNodes '同步子节点选中状态。
    nd.Checked = e.node.checked
Next
‘接下来的代码是针对父节点的。
If e.node.level = 1 Then '如果只有两级节点
    If e.node.checked = False '节点取消选中,父节点随之取消
        e.node.ParentNode.Checked = False
    End If
    If e.node.checked = True '节点选中,遍历同级节点,如果同级节点全部选中,则父节点也选中
        Dim Inum As Integer = e.Node.ParentNode.Nodes.Count
        For Each nd As WinForm.TreeNode In e.Node.ParentNode.Nodes
            If nd.Checked Then
                Inum = Inum -1
            End If
        Next
        If Inum = 0 Then
            e.Node.ParentNode.Checked = True
        End If
    End If
End If

If e.node.level =2 Then '如果有3级节点
    If e.node.checked = False '如果节点取消选中,则上两级父节点取消选中
        e.node.ParentNode.Checked = False
        e.node.ParentNode.ParentNode.Checked = False
    End If
    If e.node.checked = True Then '如果节点选中,遍历同级节点,如果全部选中,则上级节点选中,再遍历上级节点,如果全部选中,则上上级节点选中。4级5级以此类推...
        Dim nd1 As WinForm.TreeNode = e.node.ParentNode
        Dim nd0 As WinForm.TreeNode = nd1.ParentNode
        Dim Inum1 As Integer = nd1.Nodes.Count
        Dim Inum2 As Integer = nd0.allNodes.Count
        For Each nd As WinForm.TreeNode In nd1.Nodes
            If nd.Checked Then
                Inum1 = Inum1 -1
            End If
        Next
        If Inum1 = 0 Then
            nd1.Checked = True
        End If
        For Each nd As WinForm.TreeNode In nd0.allNodes
            If nd.Checked Then
                Inum2 = Inum2 -1
            End If
        Next
        If Inum2 = 0 Then
            nd0.Checked = True
        End If
    End If
End If

If e.node.level = 3 Then ‘4级节点
    If e.node.checked = False
        e.node.ParentNode.Checked = False
        e.node.ParentNode.ParentNode.Checked = False
        e.node.ParentNode.ParentNode.ParentNode.Checked = False
    End If
    If e.node.checked = True Then
        Dim nd2  As WinForm.TreeNode = e.node.ParentNode
        Dim nd1 As WinForm.TreeNode = nd2.ParentNode
        Dim nd0 As WinForm.TreeNode = nd1.ParentNode
        Dim Inum1 As Integer = nd2.Nodes.Count
        Dim Inum2 As Integer = nd1.allNodes.Count
        Dim Inum3 As Integer = nd0.allNodes.Count
        
        For Each nd As WinForm.TreeNode In nd2.Nodes
            If nd.Checked Then
                Inum1 = Inum1 -1
            End If
        Next
        If Inum1 = 0 Then
            nd2.Checked = True
        End If
        For Each nd As WinForm.TreeNode In nd1.allNodes
            If nd.Checked Then
                Inum2 = Inum2 -1
            End If
        Next
        If Inum2 = 0 Then
            nd1.Checked = True
        End If
        For Each nd As WinForm.TreeNode In nd0.allNodes
            If nd.Checked Then
                Inum3 = Inum3 -1
            End If
        Next
        If Inum3 = 0 Then
            nd0.Checked = True
        End If
    End If
End If

If e.node.level = 4 Then ’5级节点
    If e.node.checked = False
        e.node.ParentNode.Checked = False
        e.node.ParentNode.ParentNode.Checked = False
        e.node.ParentNode.ParentNode.ParentNode.Checked = False
        e.node.ParentNode.ParentNode.ParentNode.ParentNode.Checked = False
    End If
    If e.node.checked = True Then
        Dim nd3  As WinForm.TreeNode = e.node.ParentNode
        Dim nd2  As WinForm.TreeNode = nd3.ParentNode
        Dim nd1 As WinForm.TreeNode = nd2.ParentNode
        Dim nd0 As WinForm.TreeNode = nd1.ParentNode
        Dim Inum1 As Integer = nd3.Nodes.Count
        Dim Inum2 As Integer = nd2.allNodes.Count
        Dim Inum3 As Integer = nd1.allNodes.Count
        Dim Inum4 As Integer = nd0.allNodes.Count
        
        For Each nd As WinForm.TreeNode In nd3.Nodes
            If nd.Checked Then
                Inum1 = Inum1 -1
            End If
        Next
        If Inum1 = 0 Then
            nd3.Checked = True
        End If
        For Each nd As WinForm.TreeNode In nd2.allNodes
            If nd.Checked Then
                Inum2 = Inum2 -1
            End If
        Next
        If Inum2 = 0 Then
            nd2.Checked = True
        End If
        For Each nd As WinForm.TreeNode In nd1.allNodes
            If nd.Checked Then
                Inum3 = Inum3 -1
            End If
        Next
        If Inum3 = 0 Then
            nd1.Checked = True
        End If
        For Each nd As WinForm.TreeNode In nd0.allNodes
            If nd.Checked Then
                Inum4 = Inum4 -1
            End If
        Next
        If Inum4 = 0 Then
            nd0.Checked = True
        End If
        
    End If
End If

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level > 0 AndAlso nd.ParentNode.Checked Then '如果父节点选中
        Continue For '跳过此节点,处理下一结点
    End If
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  '注意用or而不是And
        End If
        If nd.Level = 0 Then '注意下面的条件都要用括号括起来
            flt = flt & "( 第一级 = '" & nd.Text & "')"
        ElseIf nd.Level = 1 Then
            flt = flt & "( 第一级 = '" & nd.ParentNode.Text & "' And 第二级 = '" & nd.Text & "')"
        ElseIf nd.Level = 2 Then
            flt = flt & "( 第一级 = '" & nd.ParentNode.parentnode.Text & "' and 第二级 = '" & nd.ParentNode.Text & "' And 第三级 = '" & nd.Text & "')"
        ElseIf nd.Level = 3 Then
            flt = flt & "( 第一级 = '" & nd.ParentNode.ParentNode.ParentNode.Text & "' and 第二级 = '" & nd.ParentNode.ParentNode.Text & "' and 第三级 = '" & nd.ParentNode.Text & "' And 第四级 = '" & nd.Text & "')"
        ElseIf  nd.Level = 4
            flt = flt & "( 第一级 = '" & nd.ParentNode.ParentNode.ParentNode.ParentNode.Text & "' and 第二级 = '" & nd.ParentNode.ParentNode.ParentNode.Text & "' and 第三级 = '" & nd.ParentNode.ParentNode.Text & "' and 第四级 = '" & nd.ParentNode.Text & "'   And 第五级 = '" & nd.Text & "')"
        End If
    End If
Next
Tables("xxx").filter = flt
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询