主题：想要目录树前两级节点双击不加载数据

Dim dr As DataRow = e.Node.DataRow

Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Product As String =Right(dr("号码"),15)

Select Case e.Node.Level
    Case 0
       
    Case 1
       
    Case 2
        Filter ="Year(订单日期) = " & Year & " And Month(订单日期) = " & Month & " And 订单号码 = '" & Product & "'"
        DataTables("订单明细").LoadFilter = Filter
        DataTables("订单明细").Load()
End Select