以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个表里筛选统计怎么实现?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160016)

--  作者:白国栋
--  发布时间:2021/1/17 21:44:00
--  一个表里筛选统计怎么实现?
 

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))

Dim D As New GroupTableBuilder("统计表1", DataTables("订单"))


g.Groups.AddDef("产品")

g.Totals.AddDef("数量")

g.Filter = "产品  <> \'PD05\'"  ‘数量里不算PD05的产品

g.Build()


D.Groups.AddDef("产品")

D.Totals.AddDef("金额")      ‘金额里算所有的资金

D.Build()

MainTable = Tables("统计表1")

 

想在一个统计表里统计出来,请老师指点一下。


--  作者:有点蓝
--  发布时间:2021/1/17 21:48:00
--  
没看懂,请使用文字详细说明一下
--  作者:白国栋
--  发布时间:2021/1/17 21:56:00
--  

统计到一个表格当中:第一列:产品分类,第二列:数量分类统计,不包括产品PD05的数量。第三列:所有产品的资金统计。


--  作者:白国栋
--  发布时间:2021/1/17 21:58:00
--  

统计结果应该是这样的就对了。

PD01 193943 3401923.65
PD02 200510 5235463.285
PD03 194018 2433508.06
PD04 195189 4132876.15
PD05             5975820.585

现在是统计完了以后就资金列覆盖数量的统计了。

[此贴子已经被作者于2021/1/17 22:02:59编辑过]

--  作者:白国栋
--  发布时间:2021/1/17 22:00:00
--  

PD01 193943 3401923.65
PD02 200510 5235463.285
PD03 194018 2433508.06
PD04 195189 4132876.15
PD05             5975820.585
合计 990488 21179591.73

最后的结果是这样的。


--  作者:有点蓝
--  发布时间:2021/1/17 22:03:00
--  
分别统计,再组合,参考:http://www.foxtable.com/webhelp/topics/2305.htm
--  作者:白国栋
--  发布时间:2021/1/17 22:24:00
--  
对程序不太懂。刚开始学程序呢。有路过的指点一下吧!!!
--  作者:有点蓝
--  发布时间:2021/1/17 22:29:00
--  

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("订单"))
Dim 
dt1 As fxDataSource
bd1
.Groups.AddDef("产品"\'根据型号分组
bd1
.Totals.AddDef("数量"\'对数量进行统计

bd1.Filter = "产品 <> \'PD05\'"

dt1 = bd1.BuildDataSource()

Dim 
bd2 As New GroupTableBuilder("统计表2",DataTables("订单"))
Dim 
dt2  As fxDataSource
bd2
.Groups.AddDef("产品"\'根据型号分组
bd2
.Totals.AddDef("金额"\'对金额进行统计
dt2
 = bd2.BuildDataSource()


dt1.Combine("产品",dt2,"产品"\'将销售统计数据组合到进货统计数据

dt1.Show("统计表1")



--  作者:白国栋
--  发布时间:2021/1/17 22:35:00
--  
谢谢老师