以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中副本表的筛选树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95931)

--  作者:jyh7081
--  发布时间:2017/2/9 8:32:00
--  [求助]窗口中副本表的筛选树

 老师,我把下面代码中的“数据表” 换成 "窗口_Table1" 为什么还不行?

 

afterload事件:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("数据表", "日期|时间|地点")
trv.Nodes.Insert("显示所有行",0)

 

目录树NodeMouseDoubleClick事件:

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[开期] = \'" & dr("时间") & "\'"
        Case 1
            Filter = "[日期] = \'" & dr("开期") & "\' And [时间] = \'" & dr("时间") & "\'"
        Case 2
            Filter = "[日期] = \'" & dr("日期") & "\' And [时间] = \'" & dr("开间") & "\' And [地点] = \'" & dr("地点") & "\'"
    End Select
End If
Tables("数据表").Filter = Filter


--  作者:有点蓝
--  发布时间:2017/2/9 9:10:00
--  
如果窗口表类型不是sqltable和sqlquery,只能用对应的数据表名称
--  作者:有点色
--  发布时间:2017/2/9 9:17:00
--  

trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "日期|时间|地点")

 

--------------

 

e.Form.Controls("Table1").Table.Filter = Filter


--  作者:jyh7081
--  发布时间:2017/7/27 22:14:00
--  
打开窗口表后,显示的行是经过筛选的;希望窗口中的筛选树  显示经过筛选后的窗口表的现有项,黑色代码怎么改?    谢谢!

afterload事件:
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "承办人")      \'窗口中副本表的筛选树
trv.Nodes.Insert("显示所有行",0)

--  作者:有点甜
--  发布时间:2017/7/27 23:02:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "承办人",e.Form.Controls("Table1").Table.Filter)      \'窗口中副本表的筛选树
trv.Nodes.Insert("显示所有行",0)