主题：关于流水账查询

我换个问法吧，这都是我的问题，没表达明白

我对我的流水账，查询当前日期的所有产品库存，

是需要让我把我所有的“入库”-“出库”？

那样计算数据量好大啊

 呃，你要做什么上传一个简单的例子吧。

 就几句代码的事，比如

Dim kc As Double = DataTables("表A").Compute("sum(入库)") - DataTables("表A").Compute("sum(出库)")

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

点击浏览该文件:例子.foxdb

1、库存的统计是累计值，肯定不对，我不知道怎么编了

2、可不可以在统计后，上面的日期为我选择的日期？“起始日期—截至日期”

Dim et As Date = e.Form.Controls("ETime1").value
Dim st As Date = e.Form.Controls("STime1").value

Dim str As String = Format(st,"yyyy年MM月dd日") & "--" & Format(et,"yyyy年MM月dd日")
Dim g As New GroupTableBuilder("统计表1", DataTables("例子"))
g.Groups.AddDef("产品")
g.Totals.AddDef("入库", "入库", str & "_入库")
g.Totals.AddDef("出库", "出库", str & "_出库")
g.Totals.AddDef("库存", "库存", str & "_截止库存")
g.filter = "日期 >= '" & cdate(st) & "' And 日期 <= '" & cdate(et) & "'"
g.build
MainTable = Tables("统计表1")
For Each r As Row In Tables("统计表1").Rows
    Dim filter = " 日期 <= '" & cdate(et) & "' and 产品 = '" & r("产品") & "'"
    Dim kc As Double = DataTables("例子").Compute("sum(入库)",filter) - DataTables("例子").Compute("sum(出库)",filter)
    r("库存") = kc
Next

谢谢，甜老师了，

学习了，

这个就还是那个问题，您发现 了，如果我统计3月份的，你发现C15这个品番没有库存数据，其实是他在3月没出入库而已，就落下了，统计品番不全

Dim et As Date = e.Form.Controls("ETime1").value
Dim st As Date = e.Form.Controls("STime1").value

Dim str As String = Format(st,"yyyy年MM月dd日") & "--" & Format(et,"yyyy年MM月dd日")
Dim g As New GroupTableBuilder("统计表1", DataTables("例子"))
g.Groups.AddDef("产品")
g.Totals.AddDef("入库", "入库", str & "_入库")
g.Totals.AddDef("出库", "出库", str & "_出库")
g.Totals.AddDef("库存", "库存", str & "_截止库存")
g.filter = "日期 >= '" & cdate(st) & "' And 日期 <= '" & cdate(et) & "'"
g.build
MainTable = Tables("统计表1")

For Each cp As String In DataTables("例子").GetValues("产品", "产品 not in ('" & DataTables("统计表1").GetComboListString("产品").Replace("|", "','") & "')")
    Dim nr As Row = Tables("统计表1").AddNew
    nr("产品") = cp
Next

For Each r As Row In Tables("统计表1").Rows
    Dim filter = " 日期 <= '" & cdate(et) & "' and 产品 = '" & r("产品") & "'"
    Dim kc As Double = DataTables("例子").Compute("sum(入库)",filter) - DataTables("例子").Compute("sum(出库)",filter)
    r("库存") = kc
Next