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

参考

http://www.foxtable.com/webhelp/scr/2305.htm

不就是直接分组统计吗？

http://www.foxtable.com/webhelp/scr/0158.htm

不会做的话，上传具体的项目测试。

那你是要做流水账？

http://www.foxtable.com/webhelp/scr/1572.htm

还是说任意统计？

http://www.foxtable.com/webhelp/scr/0681.htm

请做一个foxtable例子发上来，说明要实现的效果。

以下是引用hualing220在2017/12/25 15:05:00的发言：

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

具体做一个例子发上来测试吧。

要写代码处理。你要查找find上次日期、下次日期，才能计算结果

http://www.foxtable.com/webhelp/scr/0396.htm

http://www.foxtable.com/webhelp/scr/0287.htm

不会做上传项目。

datacolchanged事件，在后面加上代码

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 * 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 * drs(i)("库存二") * 2
    Next
    If drs.count > 0 Then
        drs(drs.count-1)("来去向") = (Date.Today - cdate(drs(drs.count-1)("日期"))).Totaldays * drs(drs.count-1)("库存二") * 2
    End If
End If

任意修改一个单元格的值，就会计算。或者【重置列】也会计算。

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

点击浏览该文件:汪爱国 (1).table

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、你要输入值或者重置列，才能计算结果的，输入本行记录的时候，才能计算上一行的记录。

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

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

1、报什么错？

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