主题：关于流水账查询

 截止日期的的当前库存，就是日期之前的入库减去出库

 在库是什么意思？把入库减去出库就能得到当前的库存啊

 

Dim g As New CrossTableBuilder("统计表1", DataTables("成品流水账"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("入库", "入库")
g.Totals.AddDef("出库", "出库")
g.Totals.AddDef("库存", "库存")
g.Build()
MainTable = Tables("统计表1")

For Each r As Row In Tables("统计表1").Rows
    r("库存") = r("入库") - r("出库")
Next

 实例上传上来。

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

 

 就几句代码的事，比如

 

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

 请上传foxtable的项目。

Dim filter As String = "日期 <= #" & "2015-03-04" & "#"
Dim kc As Double = DataTables("S").Compute("sum(入库)",filter) - DataTables("S").Compute("sum(出库)",filter)
msgbox(kc)

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

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