主题：[求助]加载树报错

Dim dr As DataRow = e.Node.DataRow
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim day As Integer  = dr("日")

改成-----------------------------------------

Dim dr As DataRow = e.Node.FullName.split("\")
Dim Year As Integer = ary(0)
Dim Month As Integer = ary(1)
Dim day As Integer  = ary(2)

哦，改成

Dim ary() As String = e.Node.FullName.split("\")
Dim Year As Integer = ary(0)
Dim Month As Integer = ary(1)
Dim day As Integer  = ary(2)

Dim Filter As String

If e.node.Text = "加载所有数据" Then
   
    Filter = ""
   
Else
   
    Dim ary() As String = e.Node.FullName.split("\")
    Dim Year As Integer = ary(0)
    Dim Month As Integer = ary(1)
    Dim day As Integer  = ary(2)
   
    Select Case e.Node.Level
       
        Case 0
           
            Filter ="Year(日期) = " & Year
           
        Case 1
           
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
           
        Case 2
           
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day
           
    End Select
   
End If

DataTables("订单组合1").LoadFilter = Filter

DataTables("订单组合1").Load()