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

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

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

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的摘要列为“本月合计”？库存为每种产品最后库存数？

lin98

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lin98

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

加好友

发短信

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

Post By：2024/8/15 16:07:00 [显示全部帖子]

With Tables("窗口_Table2") '

.Cols("数量").GrandTotal = True '

.Cols("金额").GrandTotal = True

.GrandTotal = True '

End With

上面执行，只有数据统计，没有显示“合计”标识

如何在指定列实现加上“合计”？

下一主题 >> << 上一主题

主题：统计问题