For Each c As DataCol In e.DataTable.DataCols

Dim Dowss As DataRow (of List) = e.DataTable.Select("摘要 = \'本月合计\'")
        Dim year As Integer = e.DataTable.find("摘要 = \'本月合计\'")("日期").Year
        Dim month As Integer =e.DataTable.find("摘要 = \'本月合计\'")("日期").Month
        Dim Date1 As Date = new Date(year,month,1)
        Dim Date2 As Date = new Date(year,month,Date.DaysInMonth(year,month))
        msgbox(Date2)
        e.DataTable.find("摘要 = \'本月合计\'and 日期 = \'" & Date2 &"\'")(c.name) = e.DataTable.Compute("sum(c.name)","日期 >= \'" & Date1 & "\' and 日期 <= \'" & Date2 & "\'")
        msgbox(5)

next
以上代码是实现本月合计行对本月数据的合计

此例子中有一个明细，想按月汇总，以下代码是那里出错了

If e.DataCol.Name = "摘要" AndAlso e.DataRow("摘要") = "本月合计" Then
    Dim Dowss As List(of DataRow) = e.DataTable.Select("摘要 = \'本月合计\'")
    For Each dr As DataRow In Dowss
        Dim year As Integer = dr("日期").Year
        Dim month As Integer = dr("日期").Month
        Dim Date1 As Date = new Date(year,month,1)
        Dim Date2 As Date = new Date(year,month,Date.DaysInMonth(year,month))
        For Each c As DataCol In e.DataTable.DataCols
            If c.IsNumeric Then
                msgbox(Date1)
                msgbox(Date2)
                \'dr(c.name) = e.DataTable.Compute("sum(" & c.name & ")","日期 >= \'" & Date1 & "\' and 日期 <= \'" & Date2 & "\'and 摘要 <> \'本月合计\'")
                dr(c.name) = e.DataTable.Compute("sum(" & c.name & ")","日期 >= \'" & Date1 & "\' and 日期 <= \'" & Date2 & "\'")
                msgbox(dr(c.name))
            End If
        Next
    Next
End If

Select Case e.DataCol.Name
    Case "汇总_借方金额","汇总_贷方金额"
        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(汇总_借方金额)","[_SortKey] <= " & dr("_SortKey") & " And 摘要 <> \'本月合计\'")
msgbox(val1)
            Dim Val2 As Double = e.DataTable.Compute("Sum(汇总_贷方金额)","[_SortKey] <= " & dr("_SortKey") & " And 摘要 <> \'本月合计\'")
           dr("汇总_余额") = Val1 + Val2
        Next
End Select

以上代码是流水账代码，黄水代码错误在那里，为什么求不出来值？