- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 三级以上目录树多选筛选树代码如何写，请求帮助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30049)
-- 发布时间：2013/3/20 8:30:00
-- 三级以上目录树多选筛选树代码如何写，请求帮助
这是帮助里的多选筛选树的代码，这段代码适用于两级节点目录树
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'同步子节点选中状态
nd.Checked = e.Node.Checked
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.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 & "\')"
Else
flt = flt & "( 产品 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\')"
End If
End If
Next
Tables("订单").Filter = flt
三级以上节点目录树如何写，请那位大侠指导一下，在此先谢谢了。
-- 发布时间：2013/3/20 15:03:00
--
谢谢您回复，这个办法我测试过了，选择三级节点时没有问题，选择父节点时会出现错误提示
-- 发布时间：2013/3/20 15:06:00
--
这样的提示，但不知道如何处理-- 发布时间：2013/3/20 15:11:00
--
三级以上多选是不是要改为：
For Each nd As WinForm.TreeNode In e.node.allNodes \'同步子节点选中状态
nd.Checked = e.Node.Checked
Next
-- 发布时间：2013/3/20 15:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：qq截图20130320151816.png
-- 发布时间：2013/3/20 15:20:00
--
麻烦您看看
-- 发布时间：2013/3/20 15:56:00
--
此主题相关图片如下：qq截图20130320155427.png
非常感谢回复这么快，上传图片，这样点选时出现错误提示
-- 发布时间：2013/3/20 16:03:00
--
6楼不是提醒了吗!
此主题相关图片如下：07.gif
-- 发布时间：2013/3/20 16:07:00
--
您测试看看，您的建议是否正确
-- 发布时间：2013/3/20 16:12:00
--
测试成功!
此主题相关图片如下：04.gif