以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教，多列垂直分组如何改变分组层级？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99733)
--  作者：guning008
--  发布时间：2017/4/25 18:56:00
--  请教，多列垂直分组如何改变分组层级？
现在显示的效果是

产品 库存 非库存
1月 2月 3月 4月 1月 2月 3月 4月
金额 净重 金额 净重 金额 净重 金额 净重 金额 净重 金额 净重 金额 净重 金额 净重


我想要的效果是

产品 1月 2月 3月 4月
金额 数量 金额 数量 金额 数量 金额 数量
库存 非库存 库存 非库存 库存 非库存 库存 非库存 库存 非库存 库存 非库存 库存 非库存 库存 非库存

或者

产品 1月 2月 3月 4月
库存 非库存 库存 非库存 库存 非库存 库存 非库存
金额 净重 金额 净重 金额 净重 金额 净重 金额 净重 金额 净重 金额 净重 金额 净重


我现在的代码如下，请教老师，我该如何修改代码才能达到我想要的效果。谢谢！

Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"), “日期 >= #01/01/2017#")
g.HGroups.AddDef("产品")
g.VGroups.AddDef("库存","库存|非库存")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("金额", "金额")
g.Totals.AddDef("净重", "净重")
g.Filter = "日期 >= #01/01/2017#"
Tables("销售统计_Table1").DataSource = g.BuildDataSource()
[此贴子已经被作者于2017/4/25 19:01:43编辑过]
--  作者：有点蓝
--  发布时间：2017/4/25 20:27:00
--  
Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"), “日期 >= #01/01/2017#")
g.HGroups.AddDef("产品")
g.VGroups.AddDef("日期", "{0}月")
g.VGroups.AddDef("库存","库存|非库存")
g.Totals.AddDef("金额", "金额")
g.Totals.AddDef("净重", "净重")
g.Filter = "日期 >= #01/01/2017#"
Tables("销售统计_Table1").DataSource = g.BuildDataSource()

具体上传实例测试
--  作者：guning008
--  发布时间：2017/4/26 10:05:00
--  
兰老师您好！

我测试了，还是不行，而且月份的那一列标题直接不见了。

我目前做的项目内容有点多，不方便发上来，我用商业版做一个简单的项目来测试一下，然后发上来您帮我看看。

谢谢！
--  作者：有点色
--  发布时间：2017/4/26 10:54:00
--  
 单独把你这个表上传上来测试下。