[求助]查询表水平、垂直转置（已解决！） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：1.png

比如上面这张表，用交叉统计改成如下

Dim b As New CrossTableBuilder("统计表1",DataTables("流转车间"))

b.Filter = "[工单号] = '17-0433M'" '仅统计客户为CS01的记录

'b.HGroups.AddDef("工单号")

b.HGroups.AddDef("颜色")

b.HGroups.AddDef("尺码")

'添加水平分组

b.VGroups.AddDef("工序序号")

b.VGroups.AddDef("流转车间")

b.VGroups.AddDef("工序名称")

'添加垂直分组

b.Totals.AddDef("良品数量")

b.Totals.AddDef("次品数量")

b.Totals.AddDef("报废数量")

b.Totals.AddDef("多余数量")

'添加数量列用于统计

b.Build '生成统计表

MainTable = Tables("统计表1") '打开生成的统计表

此主题相关图片如下：2.png

后来发现列数太多，想把几个数量改成水平分布，请问有什么方法直接生成最终想要的表？

还是先用交叉统计，在转置？

目标样式：

此主题相关图片如下：3.png

[此贴子已经被作者于2018/3/30 15:54:06编辑过]

如果用交叉统计，多加一些分组列，如

b.HGroups.AddDef("颜色")

b.HGroups.AddDef("尺码")

b.HGroups.AddDef("数量")

如果要灵活的交叉统计，参考

或者，可以这样固定统计

请问我在窗口建立查询按钮，怎么把生成的临时表加载到表空间中？

Tables("车间进度跟进_Table1").DataSource = dtb.BuildDataSource

这行代码只显示表头，没有显示行数据。

OK了，解决了。

1、你生成的临时表的代码怎么写的？

2、试试改成 Tables("车间进度跟进_Table1").DataSource = DataTables("临时表名")

主题：[求助]查询表水平、垂直转置（已解决！）