[原创] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师您好！

我在窗口增加了一个目录树控件，并在窗口AfterLoad事件中编写

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报名库","科类|学校|姓名")
trv.Nodes.Insert("显示所有行",0)代码，预览时可就是不显示目录树，
不知错在哪里？请老师指点。

老师您好！前面的问题已解决，非常感谢您的关心和帮助。下面是新的问题，恳请帮助。

我在窗口增加了一个分区面板，在右分区插入一个报名库表，并在窗口AfterLoad事件中编写

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报名库","科类|学校|姓名")
trv.Nodes.Insert("显示所有行",0)代码；
在左分区插入一个TreeView(目录树)，并在目录树的NodeMouseDoubleClick事件中编写
Dim Filter As String
If e.Node.Text <> "显示所有行" Then
Dim dr As DataRow = e.Node.DataRow
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 代码
预览时不显示任何内容，
不知错在哪里？请老师指点。

报名库数据表截图在附件。