以文本方式查看主题

-  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=19217)

--  作者:shenyl0211
--  发布时间:2012/5/2 18:36:00
--  [求助]统计列顺序为何会变?

在分组统计中生成的代码,中间不会有groups和totals交替出现,虽然在maintablechanged事件中可以调整代码顺序,但结果还是分组归分组、统计归统计,但这种分组统计不是我所希望的。
请教:怎样才能真正实现下列的混合输出呢?谢谢!

If MainTable.Name = "项目全面管理" And (user.name="王玉堂" Or user.name="开发者") Then
    Dim g As New GroupTableBuilder("在建自查", DataTables("项目全面管理"))

    g.Groups.AddDef("实体名称")
    g.Groups.AddDef("编号")
    g.Groups.AddDef("项目名称")
    g.Groups.AddDef("项目经理")

    g.Totals.AddDef("合同额_历年已签")
    g.Totals.AddDef("合同额_历年未签")
    g.Totals.AddDef("合同额_本年已签")
    g.Totals.AddDef("合同额_本年未签")
    g.Totals.AddDef("营业额_本年合计")
    g.Totals.AddDef("营业额_历年累计")
    g.Totals.AddDef("营业额_总计")
    g.Totals.AddDef("营业额_剩余")
    g.Groups.AddDef("项目地区")
    g.Groups.AddDef("合同甲方")
    g.Groups.AddDef("合同乙方")
    g.Groups.AddDef("行业类别")
    g.Groups.AddDef("工程类型")
    g.Groups.AddDef("开工日期", DateGroupEnum.None)
    g.Groups.AddDef("合同工期", DateGroupEnum.None)
    g.Groups.AddDef("外协单位名称")
    g.Groups.AddDef("合同签订")
    g.Totals.AddDef("合同额")
    g.Totals.AddDef("已付额")
    g.Groups.AddDef("备注")

    g.Filter = "[状态]=\'在建\'"
    g.Build()
    Tables("在建自查").AutoSizeCols()
End If


--  作者:程兴刚
--  发布时间:2012/5/2 18:53:00
--  

给个文件才好测试!


--  作者:狐狸爸爸
--  发布时间:2012/5/3 7:52:00
--  

只能在统计表生成后,用代码调整列位置和列顺序的


--  作者:shenyl0211
--  发布时间:2012/5/3 10:14:00
--  

谢谢狐爸指点,已经全部搞定。