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

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("[日期] = #" & mr("日期") & "# and _Sortkey < " & mr("_Sortkey") & " And [品名] = '" & mr("品名") & "' and [型号] = '" & mr("型号") & "' and 面料 = '" & mr("面料") & "'", "日期 desc, _Sortkey desc")
        If dr Is Nothing Then '同日期么找到
            dr = e.DataTable.Find("[日期] < #" & mr("日期") & "# And [品名] = '" & mr("品名") & "' and [型号] = '" & mr("型号") & "' and 面料 = '" & mr("面料") & "'", "日期 desc, _Sortkey desc")
            If dr Is Nothing Then
                mr("结余数量") = mr("入库数量") - mr("出库数量")
                dr = mr
            Else
                mr("结余数量") = dr("结余数量") + mr("入库数量") - mr("出库数量")
            End If
        Else
            mr("结余数量") = dr("结余数量") + mr("入库数量") - mr("出库数量")
        End If
        drs = e.DataTable.Select("[日期] >= #" & mr("日期") & "# And [品名] = '" & mr("品名") & "' and [型号] = '" & mr("型号") & "' and 面料 = '" & mr("面料") & "'", "日期,[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("入库数量") - drs(i)("出库数量")
        Next

        If (e.DataCol.Name = "品名" OrElse e.DataCol.name = "型号" OrElse e.DataCol.name = "面料") AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Dim filter As String = ""
            If e.DataCol.name = "品名" Then
                filter = "[品名] = '" & e.OldValue & "' and [型号] = '" & mr("型号") & "' and 面料 = '" & mr("面料") & "'"
            ElseIf e.DataCol.name = "型号"
                filter = "[品名] = '" & mr("品名") & "' and [型号] = '" & e.OldValue & "' and 面料 = '" & mr("面料") & "'"
            ElseIf e.DataCol.name = "面料"
                filter = "[品名] = '" & mr("品名") & "' and [型号] = '" & mr("型号") & "' and 面料 = '" & e.OldValue & "'"
            End If
            dr = e.DataTable.Find("[日期] < #" & mr("日期") & "# And " & filter, "日期 desc, _Sortkey desc")

            drs = e.DataTable.Select("[日期] >= #" & mr("日期") & "# And " & filter, "日期,[_SortKey]")
            If drs.count > 0 Then
                If dr IsNot Nothing AndAlso dr("_Identify") <> drs(0)("_Identify") Then
                    drs(0)("结余数量") = dr("结余数量") + drs(0)("入库数量") - drs(0)("出库数量")
                Else
                    drs(0)("结余数量") = drs(0)("入库数量") - drs(0)("出库数量")
                End If
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("结余数量") = drs(i-1)("结余数量") + drs(i)("入库数量") - drs(i)("出库数量")
                Next
            End If
        End If
End Select

主题：求助 流水账，库存统计

主题：求助流水账，库存统计