月结表的本月加权平均单价采用的是月加权平均法计算，截图中的本月期初金额≠上月结存金额导致月结表错误，【生成月结表】按钮代码如下，问题可能出在红色粗字，请老师指点。

此主题相关图片如下：snap1.jpg

DataTables("材料月结").DataRows.Clear
Dim Arys As List(Of String())
Arys = DataTables("材料明细").GetValues("月|材料分类|材料名称|型号规格","月 >= \'" & e.Form.Controls("起始月").Text & "\' And 月 <= \'" & e.Form.Controls("截止月").Text & "\' ")
For Each Ary As String() In Arys
    Dim r As Row = Tables("材料月结").AddNew
    r("月") = Ary(0)
    r("材料分类") = Ary(1)
    r("材料名称") = Ary(2)
    r("型号规格") = Ary(3)
Next
Dim dt As DataTable = DataTables("材料明细")
For Each dr As DataRow In DataTables("材料月结").DataRows
    Dim Filter As String = "材料分类 = \'" & dr("材料分类") & "\' and 材料名称 = \'" & dr("材料名称") & "\' and 型号规格 = \'" & dr("型号规格") & "\'"
    Dim Sum,Sum1 As Double
   
    dr("本月入仓_数量") = dt.Compute("Sum(入仓数量)",Filter & " And 月 = \'" & dr("月") & "\'")
    dr("本月入仓_金额") = dt.Compute("Sum(入仓金额)",Filter & " And 月 = \'" & dr("月") & "\'")
    dr("本月出仓_数量") = dt.Compute("Sum(出仓数量)",Filter & " And 月 = \'" & dr("月") & "\'")
    dr("上月结存_数量") = dt.Compute("Sum(入仓数量)",Filter & " And 月 < \'" & dr("月") & "\'") - dt.Compute("Sum(出仓数量)",Filter & " And 月 < \'" & dr("月") & "\'")
    Sum = DataTables("材料明细").Compute("Sum(入仓金额)",Filter & " And 月 < \'" & dr("月") & "\'")
    Sum1 = DataTables("材料明细").Compute("Sum(入仓数量)",Filter & " And 月 < \'" & dr("月") & "\'")
    dr("上月结存_金额") = Sum / Sum1 * dr("上月结存_数量")
    dr("本月结存_数量") = dr("上月结存_数量") + dr("本月入仓_数量") - dr("本月出仓_数量")
    dr("本月加权平均单价") = (dr("上月结存_金额") + dr("本月入仓_金额"))/(dr("上月结存_数量") + dr("本月入仓_数量"))
    dr("本月出仓_金额") = dr("本月加权平均单价") * dr("本月出仓_数量")
    dr("本月结存_金额") = dr("上月结存_金额") + dr("本月入仓_金额") - dr("本月出仓_金额")
Next

DataTables("材料月结").DeleteFor(" [材料名称] is null AND [型号规格] is null  " )
DataTables("材料月结").DeleteFor(" 上月结存_数量 = 0 AND  本月入仓_数量 is null  AND  本月出仓_数量 is null  AND  本月结存_数量 = 0  " )

dr("上月结存_金额") = Sum / Sum1 * dr("上月结存_数量")

这段代码有问题，它不是月加权平均单价。有什么方法计算上月结存_金额?

不好意思,上午出去办事了。本月加权平均单价=（本月期初金额 + 本月入仓金额）/(本月期初数量 + 本月入仓数量)

在上式中,本月期初金额应该等于上月结存金额

2楼的公式中计算出来的就不是本月加权平均单价,而是所有月加权平均单价

还是没搞定，上个案例，请帮帮忙。（窗口按钮代码）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:月结.foxdb

补充计算公式,请老师帮帮忙

月结计算(按材料和月份排序)

1 上月结存数量 = 期初数量 + 本月之前各月入仓数量合计 - 本月之前各月出仓数量合计
2 本月结存数量 = 上月结存数量 + 本月入仓数量 - 本月出仓数量
3 上月结存金额 = 上个月的本月结存金额 (对于第1行,就是该材料的期初金额)
4 本月结存金额 = 全月加权平均单价 * 本月结存数量
5 全月加权平均单价 = (上月结存金额 + 本月入仓金额) / (上月结存数量 + 本月入仓数量)
6 本月出仓金额 = 全月加权平均单价 * 本月出仓数量
最后验算 本月结存金额 = 上月结存金额 + 本月入仓金额 - 本月出仓金额) = 全月加权平均单价 * 本月结存数量