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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 行列转换及交叉统计

共有3450人关注过本帖树形打印复制链接主题：行列转换及交叉统计

happyft

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

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

行列转换及交叉统计 发帖心情

Post By：2019/6/26 17:37:00 [显示全部帖子]

此主题相关图片如下：行列转换.jpg

上面的表的数据要显示为下方的样式,是不是必须先把行转换为列后再进行交叉统计?

谢谢!

HappyFt

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

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2019/6/26 19:28:00 [显示全部帖子]

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("产品", Gettype(String), 16)

dtb.AddDef("客户", Gettype(String), 16)

Dim prds As List(of String) = DataTables("订单").GetValues("日期")

For Each prd As String In prds

dtb.AddDef(prd, Gettype(Double))

dtb.Build()

当用每一个日期新增列时,,有个问题

上面日期列值显示为2019-01-01 00:00:00, 2019-01-02 00:00:00,2019-01-03 00:00:00 ........

日期列标题按年,月,周,日像1楼那样的标题显示,红色的部份要如何写?

谢谢!

HappyFt

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

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2019/6/28 21:37:00 [显示全部帖子]

此主题相关图片如下：单元格.jpg

交叉统计中用如下代码将日期显示成年月周日的形式了

b.VGroups.AddDef("交货日期",DateGroupEnum.Year,"{0}年") '添加产品列用于垂直分组,并设置了Pattern参数

b.VGroups.AddDef("交货日期",DateGroupEnum.Month,"{0}月") '添加产品列用于垂直分组,并设置了Pattern参数

b.VGroups.AddDef("交货日期",DateGroupEnum.Week,"{0}周") '添加产品列用于垂直分组,并设置了Pattern参数

b.VGroups.AddDef("交货日期",DateGroupEnum.Day,"{0}日") '添加产品列用于垂直分组,并设置了Pattern参数

b.Totals.AddDef("数量") '添加数量列用于统计

现在有个问题,当鼠标选中每个单元格后,要根据所选的这一列的实际日期值来提取其他数据,比如上图中的选中列的日期是 2019-06-25

如何得到这个值,也就是当前日期列的值,用colsel显示出来列名是"数量_25"这样了,不对?

谢谢!

主题：行列转换及交叉统计