以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]多选筛选树求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93534)
--  作者：lhlh
--  发布时间：2016/11/30 19:37:00
--  [求助]多选筛选树求助

目录树和内容是不同的两个表，麻烦帮改一下多选筛选。（按表格中的“编码”筛选）

 

 


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:多选的筛选树.table

[此贴子已经被作者于2016/11/30 19:39:36编辑过]
--  作者：有点蓝
--  发布时间：2016/11/30 20:28:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim flt As String 
Dim nd As WinForm.TreeNode 
For Each nd In trv.AllNodes 
    If nd.Checked  Then 
        flt &= "\'" & nd.DataRow("编码") & "\',"
    End If
Next

Tables("人员表").Filter  = "编码 in (" & flt.Trim(",") & ")"
--  作者：lhlh
--  发布时间：2016/11/30 20:39:00
--  

谢谢蓝版主！