以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何全年累计数量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38677)

--  作者:sxqq123
--  发布时间:2013/8/4 9:20:00
--  如何全年累计数量

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


--  作者:y2287958
--  发布时间:2013/8/4 9:23:00
--  
上个例子呗
--  作者:lsy
--  发布时间:2013/8/4 9:34:00
--  
("日期 >=#" & e.DataRow("日期").AddYears(-1).Year & "/12/26# ")
--  作者:sxqq123
--  发布时间:2013/8/4 11:17:00
--  
谢谢大师指教