以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  求教：多选目录筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27405)

--  作者：飞天 --  发布时间：2012/12/30 15:45:00 --  求教：多选目录筛选 我的目录树结构是：e.Form.Controls("TreeView1").BuildTree("订单", "产品|客户｜是否结帐")   下载信息  [文件大小：   下载次数： ] 点击浏览该文件:多选筛选树.table 以下代码只筛选二个节点的。麻烦帮忙修改一下，能够筛选某一产品，某一客户及是否结帐。 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 [此贴子已经被作者于2012-12-30 16:37:11编辑过]

--  作者：lin_hailun --  发布时间：2012/12/31 10:08:00 --   大概这样吧。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:多选筛选树.table