主题：求助代码

当天的送货数，到下次送该产品的时候，自动将送货数累计到已送货数里面去，代码怎么写，请教老师指点

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

点击浏览该文件:送货清单.table

参考流水账设计

 

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

 

老师，流水账是当天送货就累计了，而我要等后一次送货的时候才累计前一次的送货数，代码不会写

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "产品名称","今日送货数","日期"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[日期] >= #" & e.DataRow("日期") & "# And [产品名称] = '" & e.DataRow("产品名称") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "iif([日期] < #" & dr("日期") & "#, [日期] < #" & dr("日期") & "# And [产品名称] = '" & dr("产品名称") & "', [日期] = #" & dr("日期") & "# and _sortkey <= " & dr("_sortkey") & " And [产品名称] = '" & dr("产品名称") & "')"
           
            Dim Val1 As Double = e.DataTable.Compute("Sum(今日送货数)",Filter)
            dr("已送货数") = Val1 - dr("今日送货数")
        Next
        If e.DataCol.Name = "产品名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[日期] > #" & e.DataRow("日期") & "# And [产品名称] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "iif([日期] < #" & dr("日期") & "#, [日期] < #" & dr("日期") & "# And [产品名称] = '" & dr("产品名称") & "', [日期] = #" & dr("日期") & "# and _sortkey <= " & dr("_sortkey") & " And [产品名称] = '" & dr("产品名称") & "')"
               
                Dim Val1 As Double = e.DataTable.Compute("Sum(今日送货数)",Filter)
                dr("已送货数") = Val1 - dr("今日送货数")
            Next
        End If
End Select

解决了，谢谢老师