主题：统计出现问题

 去到你事件代码那里添加 msgbox，不要把代码写到命令窗口

此主题相关图片如下：30.png

然后预览麽？

 是。定位看哪句代码有问题。

此主题相关图片如下：40.png

http://www.foxtable.com/help/topics/1485.htm

目前代码还掌握不了，只能班用人家的例子做改造。

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

点击浏览该文件:库存.foxdb

DataTables("库存月报").DataRows.Clear
Dim s As String = e.Form.Controls("月份").Value
If s <> "" Then
    Dim f As New Filler
    f.SourceTable = DataTables("进库明细")
    f.DataTable = DataTables("库存月报")
    f.ExcludeExistValue = True
    f.SourceCols = "物料品号,物料名称,每箱PC数"
    f.DataCols = "物料品号,物料名称,每箱PC数"
    f.Distinct = True '排除重复值
    f.Filter = "月份 = '" & s & "'"
    f.Fill()
   
    f.SourceTable = DataTables("出库明细")
    f.DataTable = DataTables("库存月报")
   
    f.SourceCols = "物料品号1,物料名称1,每箱PC数1"
    f.DataCols = "物料品号,物料名称,每箱PC数"
    f.ExcludeExistValue = True
    f.Distinct = True '排除重复值
    f.Filter = "月份1 = '" & s & "'"
    f.Fill()
    For Each dr As DataRow In DataTables("库存月报").DataRows
        Dim s1 As String = "物料品号 = '" & dr("物料品号") & "' And 物料名称 = '" & dr("物料名称") & "' And 每箱PC数 = '" & dr("每箱PC数") & "' And 月份 = '" & s & "'"
        Dim s2 As String = "物料品号1 = '" & dr("物料品号") & "' And 物料名称1 = '" & dr("物料名称") & "' And 每箱PC数1 = '" & dr("每箱PC数") & "' And 月份1 = '" & s & "'"
        dr("箱数_本月进库") = DataTables("进库明细").Compute("Sum(进库_箱数)",s1)
        dr("数量_本月进库") = DataTables("进库明细").Compute("Sum(进库_数量)",s1)
        'dr("本月入仓_单价") = DataTables("产品总帐").Compute("Sum(入仓金额)",s1) / DataTables("原材料").Compute("Sum(进库数量)",s1)     
        dr("箱数_本月出库") = DataTables("出库明细").Compute("Sum(出库_箱数)",s2)
        dr("数量_本月出库") = DataTables("出库明细").Compute("Sum(出库_数量)",s2)     
        s1 = "物料品号 = '" & dr("物料品号") & "' And 物料名称 = '" & dr("物料名称") & "' And 每箱PC数 = '" & dr("每箱PC数") & "' And 月份 < '" & s & "'"
        s2 = "物料品号1 = '" & dr("物料品号") & "' And 物料名称1 = '" & dr("物料名称") & "' And 每箱PC数1 = '" & dr("每箱PC数") & "' And 月份1 < '" & s & "'"
        dr("箱数_上月结存") = DataTables("进库明细").Compute("Sum(进库_箱数)",s1) - DataTables("出库明细").Compute("Sum(出库_箱数)",s2)
        dr("数量_上月结存") = DataTables("进库明细").Compute("Sum(进库_数量)",s1) - DataTables("出库明细").Compute("Sum(出库_数量)",s2)
        '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("数量_本月出库")
    Next

End If

谢谢