Dim g As New GroupTableBuilder("统计表1", DataTables("入库明细"))
g.Groups.AddDef("入库日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("入库日期", "月")
g.Groups.AddDef("商品名称")
g.Totals.AddDef("入库数量")
g.Totals.AddDef("入库金额")
g.Totals.AddDef("入库单价",AggregateEnum.Average )
g.Filter = "商品名称 is not null"
Dim dt As DataTable = g.Build(True)
DataTables("统计表").DeleteFor("")
Dim dr As DataRow
For Each r As DataRow In dt.DataRows
dr = DataTables("统计表").AddNew
dr("年") = r("年")
dr("月") = r("月")
dr("商品名称") = r("商品名称")
dr("本月入库数据") = r("入库数量")
dr("本月入库金额") = r("入库金额")
dr("本月入库平均单价") = r("入库单价")
Next
Tables("统计表").Sort = "年,月"
For Each r As Row In Tables("统计表").Rows
Dim d As Date = new Date(r("年"),r("月"),1)
dr = DataTables("统计表").Find("商品名称 = '" & r("商品名称") & "' And 年 <=" & r("年") & " and 月 <" & r("月") , "年 desc,月 desc")
If dr IsNot Nothing Then
r("上月结存数量") = dr("本月入库数据")
r("上月结存金额") = dr("本月入库金额")
End If
Next
MainTable = Tables("统计表")
加好友 
发短信
Post By：2021/4/10 21:51:00 [只看该作者]
此主题相关图片如下：1png
