主题：[求助]窗口中副本表的筛选树

 老师，我把下面代码中的“数据表” 换成 "窗口_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

如果窗口表类型不是sqltable和sqlquery，只能用对应的数据表名称

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

 

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

 

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