主题：流水账新思考

更多的时候，流水账是区分产品的，例如下图的库存表：

此类流水账的设计方法和之前是一样，只需在条件表达式中，加入产品比较即可：

Select Case e.DataCol.Name
    Case "日期","产品","入库","出库"
        If e.DataRow.IsNull("日期") = False Then
            Dim drs As List(of DataRow)
            drs = e.DataTable.Select("[日期] >= #" & e.DataRow("日期") & "# And [产品] = '" & e.DataRow("产品") & "'","日期")
            For Each dr As DataRow In drs
                Dim Filter As String
                Filter = "[日期] < #" & dr("日期") & "# Or ([日期] = #" & dr("日期") & "# And [_Identify] <= " & dr("_Identify") & ")"
                Filter = "(" & Filter & ") 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

流水账表格中如果有入库 出库1 出库2，如何求库存？注：出库1 出库2是变量。

如何求附件中表“明细账”中窗口“明细账”的“可用款余额”？

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

点击浏览该文件:管理项目1.table

单击“明细账”表的“明细账”窗口的“查询”按钮可以看见的。

是的。