主题：加载树反应慢，请帮优化下代码

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

Dim F As String

Dim Year As Integer = dr("年")

Dim Month As Integer = dr("月")

Dim Product As String = dr("负责人")

If e.Node.text <> "显示所有行" Then

Select Case e.Node.Level

    Case 0

        F ="Year(采购日期) = " & Year

    Case 1

        F ="Year(采购日期) = " & Year & " And Month(采购日期) = " & Month

    Case 2

        F ="Year(采购日期) = " & Year & " And Month(采购日期) = " & Month & " And 负责人 = '" & Product & "'"

End Select

End If

 

DataTables("采购明细").LoadFilter = F

DataTables("采购明细").Load