- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105839)
-- 发布时间：2017/8/27 18:40:00
-- [求助]目录树
此主题相关图片如下：图像 1.png
老师，用上面代码合成的窗口表怎样用目录树筛选（下面代码怎样修改）。
Dim Filter As String
If e.node.Text = "加载所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="[群组分类] = \'" & dr("群组分类") & "\'"
Case 1
Filter ="[群组分类] = \'" & dr("群组分类") & "\' And [客户供应商] = \'" & dr("客户供应商") & "\'"
End Select
End If
DataTables("通讯录").LoadFilter = Filter
DataTables("通讯录").Load()
-- 发布时间：2017/8/27 21:03:00
--
DataTables("窗口1_Table1").LoadFilter = Filter
DataTables("窗口1_Table1").Load()