主题：目录树加载时间很长,不知道原因出在哪里

局域网内SQL数据库，数据量不是很大，加载的数据在150行左右，每次执行需要在15-20秒左右，不知道原因出在哪里。请大家指教，谢谢

Dim Filter As String 

Dim dr As DataRow = e.Node.DataRow

If e.Node.Text <> "点击加载数据......" Then

    Dim Year As Integer = e.Node.DataRow("年")

    Dim Month As Integer = e.Node.DataRow("月")

    Dim gb As String = e.Node.DataRow("出库单号")

    Select Case e.Node.Level

        Case 0

 

        Case 1

 

        Case 2

            Filter = "出库单号 = '" & gb & "'"

    End Select

End If

DataTables("出库明细").loadFilter = Filter

DataTables("出库明细").Load()

DataTables("出库明细").Load()   

没有表事件