[求助]进销存，仓储费每天费用根据库存了计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我给出的计算公式应该最后一条记录计算天数需要加1 其他的不需要

1、代码

If e.DataCol.name <> "来去向" Then
    Dim pdr As DataRow = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'", "[_SortKey] Desc")
    If pdr IsNot Nothing Then
        pdr("来去向") = ((e.DataRow("日期") - pdr("日期")).Totaldays+1) * pdr("库存二") * 2
    End If

    Dim drs = e.DataTable.Select("[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'", "[_SortKey]")
    For i As Integer = 0 To drs.count-2
        drs(i)("来去向") = ((drs(i+1)("日期") - drs(i)("日期")).Totaldays+1) * drs(i)("库存二") * 2
    Next
    If drs.count > 0 Then
        drs(drs.count-1)("来去向") = ((Date.Today - cdate(drs(drs.count-1)("日期"))).Totaldays+1) * drs(drs.count-1)("库存二") * 2
    End If
End If

2、你要输入值或者重置列，才能计算结果的，输入本行记录的时候，才能计算上一行的记录。

此主题相关图片如下：微信图片_20171226122152.png

直接使用17楼的实例，就例子的数据，举例说明具体问题。

你要输入值或者重置列，才能计算结果的，输入本行记录的时候，才能计算上一行的记录。

老师帮忙看下柯言表总量累计代码怎么写谢谢

Select Case e.DataCol.Name

Case "产品","入库","出库","规格"

Dim dr As DataRow

Dim mr As DataRow = e.DataRow

Dim drs As List(of DataRow)

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = '" & mr("产品") & "'", "[_SortKey] Desc")

If dr Is Nothing Then

mr("重量") = (mr("入库") - mr("出库")) * mr("规格")

dr = mr

End If

drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'", "[_SortKey]")

For i As Integer = 1 To drs.Count - 1

drs(i)("重量") = drs(i-1)("重量") + (drs(i)("入库") - drs(i)("出库")) * drs(i)("规格")

If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = '" & e.OldValue & "'", "[_SortKey] Desc")

If dr Is Nothing Then

dr = e.DataTable.Find("[产品] = '" & e.OldValue & "'", "[_SortKey]")

If dr IsNot Nothing Then

dr("重量") = (dr("入库") - dr("出库")) * dr("规格")

End If

If dr IsNot Nothing Then

drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'", "[_SortKey]")

For i As Integer = 1 To drs.Count - 1

drs(i)("重量") = drs(i-1)("重量") + (drs(i)("入库") - drs(i)("出库")) * drs(i)("规格")

End If

End Select

老师帮忙看下这代码有什么问题

1、报什么错？

2、具体实例发上来测试。

老师请帮忙看下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

测试了一下，代码没问题啊，可以计算啊。你试试重置列

图片点击可在新窗口打开查看

老师我想做一个库存查询表怎么入手，数据统计都显示累计库存实现效果能查询所有产品的期末库存

主题：[求助]进销存，仓储费每天费用根据库存了计算