以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树_节点对表的筛选报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101756)

--  作者:湛江智
--  发布时间:2017/6/6 17:08:00
--  目录树_节点对表的筛选报错
目录树_节点对表的筛选报错
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树_节点对表的筛选报错.zip

图片点击可在新窗口打开查看此主题相关图片如下:1目录树报错?.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:筛选.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:筛选2.jpg
图片点击可在新窗口打开查看
类似上图效果,点击目录树子节点也能对表筛选


大师前辈帮忙看看了
[此贴子已经被作者于2017/6/6 18:07:44编辑过]

--  作者:有点色
--  发布时间:2017/6/6 17:15:00
--  
 没看懂你代码要做的功能。直接说你要做什么。
--  作者:湛江智
--  发布时间:2017/6/6 18:02:00
--  
点击,左边的目录树,对右边表数据筛选
类似效果补传在1楼,大师帮忙看看
[此贴子已经被作者于2017/6/6 18:03:06编辑过]

--  作者:有点色
--  发布时间:2017/6/6 18:09:00
--  

Dim cs() As String = {"f1", "f2", "f3", "f4","f5"}
Dim ary() As String = e.Node.FullPath.split("\\")
Dim filter As String = "1=1"
For i As Integer = 0 To e.node.Level
    filter &= " and " & cs(i) & " = \'" & ary(i) & "\'"
Next
Tables("主表").Filter = filter

 


--  作者:湛江智
--  发布时间:2017/6/7 11:33:00
--  
可以了,谢谢大师