Dim Filter As String

Dim Filter2 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 qy As String = e.Node.DataRow("区域")

    Dim khdm As String = e.Node.DataRow("客户代码")

    Select Case e.Node.Level

        Case 0   \'点击年份

        Case 1   \'点击月份

        Case 2   \'点击区域

            Filter = "区域 = \'" & qy & "\'"

          DataTables("定单明细").loadFilter = Filter

    DataTables("定单明细").Load()

    Tables("定单明细").Sort = "日期"

    DataTables("定单").loadFilter = Filter

    DataTables("定单").Load()

        Case 3       \'点击客户代码

            Filter ="区域 = \'" & qy & "\' and 客户代码 = \'" & khdm & "\'"

            Filter2 ="区域 = \'" & qy & "\'"

         DataTables("定单明细").loadFilter = Filter

            DataTables("定单明细").Load()

         Tables("定单明细").Sort = "日期"

         DataTables("定单").loadFilter = Filter2

         DataTables("定单").Load()

     End Select

End If

数据库是用的SQL，以上这段代码，在目前的项目中，加载运行的时间，大致都是在0.7~0.9秒之间，感觉很慢，我新建一个项目，里面就只有这个代码，运行的时间大致在0.04~0.08之间，相差了一个数量级，感觉就快多了，是什么影响了这个运行时间呢？