| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录树筛选的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95208) |
| -- 作者：k931931 -- 发布时间：2017/1/13 9:58:00 -- 目录树筛选的问题 老师你好，我按照帮助里面的代码学习目录树筛选的时候，当副本为false时，目录树有效，但是当副本为true的时候，就体现不了目录树筛选作用了 我修改Tables("入库单父子表").Filter = flt为Tables("入库单父子表_table1").Filter = flt，也依然无解，请老师指点。 Dim trv As WinForm.TreeView = e.Sender
Dim flt As String For Each nd As WinForm.TreeNode In e.node.Nodes \'清除子节点选中状态 nd.Checked = False 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.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 |
| -- 作者：有点色 -- 发布时间：2017/1/13 10:06:00 -- 加入代码 msgbox(ftl)
看弹出的条件是否正确。
表名改成 Forms("窗口名").Controls("Table1").Table.Filter = ftl |
| -- 作者：k931931 -- 发布时间：2017/1/13 10:14:00 -- 谢谢，OK ,生效了。 |