- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]处理统计表的数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153507)
-- 发布时间：2020/8/13 15:54:00
-- [求助]处理统计表的数据
蓝老师好！
通过交叉统计获得如下统计表，不同的“星期+农历日”组合，会有不同日期的多个数据行，每个组合的累计值就是统计表中的“小计”值。
我想把统计表中对每个组合的累计值按照大小排序后，将前三个组合中涉及的日期写入“表A”中收藏。
请老师帮忙写一下代码！
谢谢！
此主题相关图片如下：截屏图片1.jpg
Dim rg As Integer = 2020
Dim name As String ="000002"
Dim b1 As New SQLCrossTableBuilder("统计表1","分析数据")
b1.C
\'添加多表-关联列
b1.AddTable("分析数据","阳历日期","股票日线","日期") \'添加统计表
b1.HGroups.AddDef("星期") \'添加客户列用于水平分组
b1.HGroups.AddDef("农历日") \'添加客户列用于水平分组
b1.VGroups.AddDef("代码") \'添加指标管理列用于垂直分组,并设置了Pattern参数
b1.Decimals = 2 \'保留两位小数
b1.Totals.AddDef("涨跌幅",AggregateEnum.Sum) \'累计数统计
\'设置统计条件
b1.Filter = "1=1 And 阳历年份 In (\'" & rg & "\') And 代码 In (\'" & name & "\')"
Dim t1 As DataTable
t1 = b1.Build(True) \'生成一个DataTable
-- 发布时间：2020/8/13 16:03:00
--
添加一个临时表，遍历所有统计表的行，把汇总行都提取到临时表：http://www.foxtable.com/webhelp/topics/1594.htm
在把临时表进行排序后把前3行写入“表A”