共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：统计问题
1楼
lin98 发表于：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
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楼
有点蓝 发表于：2024/8/15 13:46:001、g.Caption = "本月合计" '
2、要么遍历所有行，取最大日期值的数据。要么使用sql获取最大日期值的数据
3楼
lin98 发表于：2024/8/15 14:11:002、要么遍历所有行，取最大日期值的数据。要么使用sql获取最大日期值的数据,
问题1：如何实现？
Dim g As New SubtotalGroup '
g.Aggregate = AggregateEnum.Sum '
g.GroupOn = "产品" '
g.TotalOn = "入库,出库" '
g.Aggregate = AggregateEnum.Sum '
g.GroupOn = "产品" '
g.TotalOn = "入库,出库" '
g.TotalOn = "库存=入库-出库" '如果这样实现，就是简单很多，如何实现类似？
g.Caption = "{0} 小计" '
With Tables("订单")
.SubtotalGroups.Clear()
.SubtotalGroups.Add(g) '
.Subtotal() '
End With
g.Caption = "{0} 小计" '
With Tables("订单")
.SubtotalGroups.Clear()
.SubtotalGroups.Add(g) '
.Subtotal() '
End With
4楼
有点蓝 发表于：2024/8/15 14:27:00比如SqlServer，
select a.* from 订单 as a inner join (select 产品,max(日期) as 日期 from 表A group by 产品) as b on a.产品=b.产品 and a.日期=b.日期
mysql自己试试能不能用
5楼
lin98 发表于：2024/8/15 16:07:00With Tables("窗口_Table2") '
.Cols("数量").GrandTotal = True '
.Cols("金额").GrandTotal = True
.GrandTotal = True '
End With
上面执行，只有数据统计，没有显示“合计”标识
如何在指定列实现加上“合计”？
6楼
有点蓝 发表于：2024/8/15 16:33:00合计模式只能有一行，且是最后一行：http://www.foxtable.com/webhelp/topics/2750.htm
共6 条记录, 每页显示 10 条, 页签:
[1]