网页端流水账可以弄不 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按日期倒序取值即可

Select Case e.DataCol.Name
    Case "产品","入库","出库"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)
            Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)
            dr("库存") = Val1 - Val2
        Next
        If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)
                Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)
                dr("库存") = Val1 - Val2
            Next
        End If
End Select

这个不可以用在网页上吗

Dim cmd As New SQLCommand

cmd.C

Dim sql As String = "Sel4ect {销进退账目}.日期,{销进退账目}.店名,{销进退账目}.对账品名,期初数量,sum(数量) As [销售数量],Sum(Case When 退货进货='已进货' Then 数据数量 Else 0 End) As [已进货数量],-Sum(Case When 退货进货='已退货' Then 数据数量 Else 0 End) As [已退货数量] From (({销进退账目} Left JOIN {销售明细} ON {销售明细}.[日期] = {销进退账目}.[日期] And {销售明细}.[店名] = {销进退账目}.[店名] And {销售明细}.[对账品名] = {销进退账目}.[对账品名]) Left JOIN {进货退货} ON {进货退货}.[日期] = {销进退账目}.[日期] And {进货退货}.[店名] = {销进退账目}.[店名] And {进货退货}.[对账品名] = {销进退账目}.[对账品名]) Group By {销进退账目}.日期,{销进退账目}.店名,{销进退账目}.对账品名,期初数量 "'

cmd.CommandText = sql

Dim dt As DataTable = cmd.ExecuteReader

For Each dr As DataRow In dt.Select("", "日期")

这个可以弄个余数量不

此主题相关图片如下：qq浏览器截图20220712105032.png

[此贴子已经被作者于2022/7/12 10:51:47编辑过]

dim drs as list(of datarow) = dt.Select("", "日期")

if drs.count > 0 then

dim dr as datarow = drs(0)

dr("余数量") = dr("期初数量") + dr("已进货数量") + dr("已退货数量") - dr("销售数量")

for i as integer = 1 to drs.count - 1

drs(i)("余数量") = drs(i-1)("余数量") + drs(i)("已进货数量") + drs(i)("已退货数量") - drs(i)("销售数量")

主题：网页端流水账可以弄不