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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计问题

共有530人关注过本帖树形打印复制链接主题：统计问题

lin98

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00

统计问题

Post By：2024/8/15 11:08:00 [只看该作者]

此主题相关图片如下：月未统计.png

Dim g As New SubtotalGroup '
g.Aggregate = AggregateEnum.Sum '
g.GroupOn = "产品" '
g.TotalOn = "入库,出库" '
g.Caption = "{0} 小计" '
With Tables("订单")
    .SubtotalGroups.Clear()
    .SubtotalGroups.Add(g) '
    .Subtotal() '
End With

1.如何实现表A的摘要列为“本月合计”？库存=入库（合计数）-出库（合计数）？

2.如何实现表A的摘要列为“本月合计”？库存为每种产品最后库存数？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109503 积分：557183 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/15 13:46:00 [只看该作者]

1、g.Caption = "本月合计" '

2、要么遍历所有行，取最大日期值的数据。要么使用sql获取最大日期值的数据

lin98

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/8/15 14:11:00 [只看该作者]

2、要么遍历所有行，取最大日期值的数据。要么使用sql获取最大日期值的数据,

问题1：如何实现？

Dim g As New SubtotalGroup '
g.Aggregate = AggregateEnum.Sum '
g.GroupOn = "产品" '
g.TotalOn = "入库,出库" '

g.TotalOn = "库存=入库-出库" '如果这样实现，就是简单很多，如何实现类似？
g.Caption = "{0} 小计" '
With Tables("订单")
    .SubtotalGroups.Clear()
    .SubtotalGroups.Add(g) '
    .Subtotal() '
End With