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

DataTables("库存月报").DataRows.Clear

Dim s As String = e.Form.Controls("月份").Value

If s <> "" Then

Dim f As New Filler

f.SourceTable = DataTables("进库明细")

f.SourceTable = DataTables("出库明细")

f.DataTable = DataTables("库存月报")

f.ExcludeExistValue = True

'f.Distinct = True '排除重复值

'f.Filter = "月份 = '" & s & "'"

f.Fill()

For Each dr As DataRow In DataTables("库存月报").DataRows

Dim s1 As String = "物料品号 = '" & dr("物料品号") & "' And 物料名称 = '" & dr("物料名称") & "' And 每箱PC数 = '" & dr("每箱PC数") & "' And 月份 = '" & s & "'"

dr("箱数_本月进库") = DataTables("进库明细").Compute("Sum(进库_箱数)",s1)

dr("数量_本月进库") = DataTables("进库明细").Compute("Sum(进库_数量)",s1)

'dr("本月入仓_单价") = DataTables("产品总帐").Compute("Sum(入仓金额)",s1) / DataTables("原材料").Compute("Sum(进库数量)",s1)

dr("箱数_本月出仓") = DataTables("出库明细").Compute("Sum(出库_箱数)",s1)

dr("数量_本月出仓") = DataTables("出库明细").Compute("Sum(出库_数量)",s1)

s1 = "物料品号 = '" & dr("物料品号") & "' And 物料名称 = '" & dr("物料名称") & "' And 每箱PC数 = '" & dr("每箱PC数") & "' And 月份 < '" & s & "'"

dr("箱数_上月结存") = DataTables("进库明细").Compute("Sum(进库_箱数)",s1) - DataTables("出库明细").Compute("Sum(出库_箱数)",s1)

dr("数量_上月结存") = DataTables("进库明细").Compute("Sum(进库_数量)",s1) - DataTables("出库明细").Compute("Sum(出库_数量)",s1)

'dr("上月结存_金额") = DataTables("原材料").Compute("Sum(入仓金额)",s1) - DataTables("原材料").Compute("Sum(入仓金额)",s1) / DataTables("原材料").Compute("Sum(进库数量)",s1) * DataTables("原材料").Compute("Sum(出库数量)",s1)

'dr("上月结存_单价") = (DataTables("原材料").Compute("Sum(入仓金额)",s1) - DataTables("原材料").Compute("Sum(入仓金额)",s1) / DataTables("原材料").Compute("Sum(进库数量)",s1) * DataTables("原材料").Compute("Sum(出库数量)",s1)) / (DataTables("原材料").Compute("Sum(进库数量)",s1) - DataTables("原材料").Compute("Sum(出库数量)",s1))

dr("箱数_本月结存") = dr("箱数_上月结存") + dr("箱数_本月入仓") - dr("箱数_本月出仓")

dr("数量_本月结存") = dr("数量_上月结存") + dr("数量_本月入仓") - dr("数量_本月出仓")

End If

主题：统计出现问题