主题：计算的问题

Select Case e.DataCol.Name

    Case "一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月","累计"

        Dim dr As DataRow

        dr = e.DataTable.Find("项目='4.经济数据' And 统计类型='7.用水数据(动力科)' And 数据统计项目='用水总计'")

        If dr IsNot Nothing Then

         dr(e.DataCol.Name) = DataTables("统计表100").Compute("Sum(" & e.DataCol.Name & ")","报表名称='用水数据' And 项目='28.用水总计' And 数据统计项目='74.用水总计'")

        End If

End Select

  像这样的计算 我 大约有 70-80个 计算 , 我现在用表事件做,发现 计算的速度有点慢  需要两三分钟 . 怎么做快一些 ,必须认项统计和计算.