主题：[求助]手动设计加载树问题

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String

If e.node.Text = "所有订单" Then
    Filter =" "
Else
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim PL As String = dr("分类2")
    Select Case e.Node.Level
        Case 0
            Filter ="Year(创建时间) = " & Year
        Case 1
            Filter ="Year(创建时间) = " & Year & " And 分类2 = '" & PL & "'"
    End Select
End If
DataTables("订单信息").LoadFilter = Filter
DataTables("订单信息").Load()