以文本方式查看主题

-  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=98721)

--  作者:zhimin
--  发布时间:2017/4/5 20:04:00
--  求助:用目录树管理表
通过目录树选择表之后,是否可以在表这个节点再做子节点,完成对表格中某些列的筛选?
谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:无标题.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/4/5 20:04:11编辑过]

--  作者:有点色
--  发布时间:2017/4/5 21:01:00
--  

AfterSelectNode事件,写代码

 

If Tables.Contains(e.Node.text) Then
    e.node.Nodes.Clear
    For Each c As Col In Tables(e.node.text).cols
        e.node.nodes.Add(c.name)
    Next
End If


--  作者:zhimin
--  发布时间:2017/4/5 22:03:00
--  
谢谢色老师,感觉有点意思了,但是我还是不太会在此基础上扩展。可能是我没有表达清楚。
我想要的效果是:在表A中,第一列有三个参数,A/B/C,分别有很多行,我希望在目录树中表A做个节点能进一步对某列进行筛选,即对第一列这A/B/C筛选出目录树的样式来,可分别点击A/B/C显示相关的行信息。
谢谢!

--  作者:有点色
--  发布时间:2017/4/6 0:44:00
--  
 做个具体的实例上传上来吧。
--  作者:zhimin
--  发布时间:2017/4/6 9:37:00
--  
好的,见附件!
即可通过选择节点Q或w或R,完成对表A中客户列的相同名称的筛选显示。

图片点击可在新窗口打开查看此主题相关图片如下:无标题.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test0406.rar

谢谢!

--  作者:有点色
--  发布时间:2017/4/6 9:41:00
--  
If e.Node.Level = 1 Then
    MainTable = Tables(e.Node.Text)
Else If e.node.level = 2 Then
    MainTable = Tables(e.Node.ParentNode.Text)
    MainTable.filter = "客户 = \'" & e.node.text & "\'"
End If

--  作者:zhimin
--  发布时间:2017/4/6 10:13:00
--  
太好了,搞定了,谢谢!