关于加载树不显示的咨询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为什么加载数设置不成功

其中NodeMouseDoubleClick：代码如下

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("客户") & "'"
Case 2
Filter ="[分区] = '" & dr("分区") & "' And [客户] = '" & dr("客户") & "' And [产品型态] = '" & dr("产品型态") & "'"
End Select
End If
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()

窗口AfterLoad代码：
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 分区, 客户, 产品型态 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "分区|客户|产品型态")
trv.Nodes.Insert("加载所有数据",0)

BeforeLoadOuterTable代码是
If e.DataTableName = "订单" Then
e.Cancel = True '打开项目的时候不加载此表
e.SelectString = "Select * From {订单} Where [_Identify] Is Null" '设置加载条件,注意如果主键不是_Identify,请改为实际的主键名称
End If