从每年的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日开始),请教大师指点