以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获取目录树node值？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62911)
--  作者：feiyu988
--  发布时间：2015/1/9 20:07:00
--  如何获取目录树node值？

在按钮中获取窗口目录树节点名称，以完成某表的筛选，怎么写都不对，老师给看看代码有啥问题？

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode
Tables("节点明细").Filter ="[站名] = \'" & nd & "\'"
--  作者：80帅兜
--  发布时间：2015/1/9 20:23:00
--  
你是想通过选择目录树直接筛选表吗？
直接在目录树的NodeMouseClick 或双击里直接写代码 比较省事
Select Case e.Node.Level
    Case 0
        
            Tables(e.Form.Name & "_Table1").Filter = "站名 = " & e.Node.Name
         
      
   
End Select
--  作者：feiyu988
--  发布时间：2015/1/9 20:28:00
--  
不是通过目录树筛选表，是为了通过按钮进行筛选生成分组统计表用的，
--  作者：游
--  发布时间：2015/1/9 21:00:00
--  
用 SelectedNode

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Tables("节点明细").Filter ="[站名] = \'" & trv.selectedNode.Name & "\'"