数据统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这个意思？

Dim d As Date = Date.Today

Dim m As String = Format(d,"yyyyMM")

Dim m1 As String = Format(d.AddMonths(-1),"yyyyMM")

Dim drs As List(Of DataRow) = DataTables("月结记录表").Select("月='" & m1 & "'")

If drs.Count = 0 Then

msgbox("上个月未月结")

Return

End If

Dim f2 As String = "1=2 "

For Each dr As DataRow In drs

f2 = f2 & "or ( 库位='" & dr("仓库名称") & "' and 单据日期 > #" & dr("结束时间") & "#)"

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("出入库明细"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("编号") '根据编号分组

bd1.Totals.AddDef("入库数","入库数量") '对数量进行统计

bd1.Filter = f2

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出入库明细"))

Dim dt2 As fxDataSource

bd2.Groups.AddDef("编号") '根据编号分组

bd2.Totals.AddDef("出库数","出库数量") '对数量进行统计

bd2.Filter = f2

dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("库存"))

Dim dt3 As fxDataSource

bd3.Groups.AddDef("编号") '根据编号分组

bd3.Totals.AddDef("库存数","上月结存") '对数量进行统计

bd3.Filter = "月='" & m1 & "'"

dt3 = bd3.BuildDataSource()

dt1.Combine("编号",dt2,"编号") '将销售统计数据组合到进货统计数据

dt1.Combine("编号",dt3,"编号") '将退货统计数据组合到进货统计数据

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table

With DataTables("窗口1_Table1").DataCols '用表达式列计算库存数据

.Add("库存数量",Gettype(Integer), "IsNull([上月结存],0) + ISNULL([入库数量],0) - ISNULL([出库数量],0)")

End With

主题：数据统计