主题：如何全年累计数量

从每年的1月1日开始统计全年累计数量代码如下:

 

Select Case e.DataCol.Name

Case "数量"

Dim d As DataRow

Dim ds As List(of DataRow)

d = e.DataTable.Find("日期= #" & e.DataRow("日期").Year & "/1/1# ")

e.DataRow("年累计") = e.DataRow("数量")

d = e.DataRow

ds = e.DataTable.Select("日期 >=#" & e.DataRow("日期").Year & "/1/1# ")

For i As Integer = 1 To ds.Count - 1

ds(i)("年累计") =ds(i-1)("年累计") + ds(i)("天成本")

Next

End Select

 如果单位以上月26日到当月25日做为一个统计月度,如何统计全年累计数量(就是从上年度12月26日开始),请教大师指点

上个例子呗

("日期 >=#" & e.DataRow("日期").AddYears(-1).Year & "/12/26# ")

谢谢大师指教