foxtable交叉统计加一列最近库存变化时刻的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

谢谢大神们，foxtable交叉统计,想加一列最近库存变化时刻，

想要的效果如图

此主题相关图片如下：a.png

示例文件如下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:库存变化交叉统计测试.rar

目前代码

以下内容为程序代码:

1 Dim g As New CrossTableBuilder("统计表1", DataTables("库存变化表"), "[仓库名称] ＜＞ '购入'")
2 g.HGroups.AddDef("物资编码")
3 g.VGroups.AddDef("仓库名称")
4 g.Totals.AddDef("入库数量", "入库数量")
5 g.HorizontalTotal = True
6 g.VerticalTotal = True
7 g.Filter = "[仓库名称] ＜＞ '购入'"
8 g.Build()
9 MainTable = Tables("统计表1")
10

谢谢提醒，已更正。

Dim g As New CrossTableBuilder("统计表1", DataTables("库存变化表"), "[仓库名称] <> '购入'")

g.HGroups.AddDef("物资编码")

g.VGroups.AddDef("仓库名称")

g.Totals.AddDef("入库数量", "入库数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[仓库名称] <> '购入'"

g.Build()

MainTable = Tables("统计表1")

[此贴子已经被作者于2021/9/8 9:22:55编辑过]

麻烦以后发代码不要发带行号的，像下面这样直接发即可。

无法直接统计，要另外使用代码处理：

Dim g As New CrossTableBuilder("统计表1", DataTables("库存变化表"))

g.HGroups.AddDef("物资编码")

g.VGroups.AddDef("仓库名称")

g.Totals.AddDef("入库数量", "入库数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[仓库名称] <> '购入'"

g.Build()

MainTable = Tables("统计表1")

DataTables("统计表1").DataCols.Add("最近库存变化时刻", Gettype(Date))

For Each r As Row In Tables("统计表1").Rows

If r("物资编码") <> "合计" Then

r("最近库存变化时刻") = DataTables("库存变化表").Compute("max(库存变化时刻)","物资编码='" & r("物资编码") & "'")

End If

谢谢版主，补充：

解决方案

g.HGroups.AddExp("最近修改时刻","{库存变化结果表}.[修改时刻]",AggregateEnum.Max)

新问题：

Dim g As New SQLCrossTableBuilder("分仓统计含合计","库存变化结果表")

主题：foxtable交叉统计加一列最近库存变化时刻的问题。