主题：请教如何统计年累计数

DataColChanged

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "计划费用_天计划"

        Dim y As Integer = dr("日期").Year

        Dim m As Integer = dr("日期").Month

        Dim s1 As String = "日期>=#" & m & "/1/" & y & "# And 日期<=#" & dr("日期") & "#"

        Dim s2 As String = "日期>=#1/1/" & y & "# And 日期<=#12/31/" & y & "#"

        dr("计划费用_月计划") = e.DataTable.Compute("Sum(计划费用_天计划)",s1)

        dr("计划费用_年累计") = e.DataTable.Compute("Sum(计划费用_天计划)",s2)

End Select