主题：计算的问题

Select Case e.DataCol.Name

    Case "统计项目"

        Dim lx() As String { "一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月","累计"}

        Dim dr As DataRow

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

        If dr IsNot Nothing Then

            For  i As Integer = 0 To lx.Length -1

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

            Next

        End If

End Select