下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件管家.foxdb

首先谢谢狐爹！！！

如何实现多选不同父节点下的子节点进行筛选

建立了一个窗口，插入目录树控件

窗口AfterLoad代码

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("文件管理", "大类|二类|三类")  -------  为三级目录树

http://www.foxtable.com/help/index.html?n=2503.htm  此示例为两级

看了论坛里的  “[求助] 复选框目录树 增加节点 ”的主题，引用了代码：

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 & ")"
ElseIf nd.Level = 1 Then \'注意下面的条件都要用括号括起来
flt = flt & "(大类 = " & nd.ParentNode.Text & " And 二类 = \'" & nd.text & "\')"
Else
flt = flt & "(大类 = " & nd.ParentNode.ParentNode.Text & " And 二类 = \'" & nd.ParentNode.text & "\' And 三类 = \'" & nd.Text & "\')"
End If
End If
Next
Tables("文件管理").Filter = flt

提示：System.Data.EvaluateException: 未找到列[软件]

改用狐神mr725的代码，如下：

文字功底差，可能说的不够通顺，还请狐爹莫怪，谢谢

1、没看明白你说的是啥意思

2、做个试用版的例子吧，手头没有开发版···

3、或用图来演示你的要求。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

在这个项目里我不能实现多选目录树的复选框来进行筛选

刚才匆匆忙忙做的项目,感觉和开发版有点不一样,不过还是能说明问题

先谢过了!!!

看看这个例子：

http://www.foxtable.com/help/topics/2503.htm

这个例子只有两级节点，BuildTree("表A", "a|b")

我的是三级节点，BuildTree("表A", "a|b|c")

本人是菜狐一只，还请狐爹和路过的狐友们帮忙详解，谢谢！！！

谢谢狐爹,我终于发现问题了

大类 = " & nd.ParentNode.ParentNode.Text & " 这里少了\' \' 号

所以提示：System.Data.EvaluateException: 未找到列[软件] 这里的软件并非列名,只是表数据

问题解决了,谢谢大家