请问，假如有一份订单表，设置条件后自动生成交叉表，但是部门“一公司、二公司、八公司、科室”的排序因为是按照拼音排列的，变成“八公司、二公司、科室、一公司”等，看起来不美观，请问怎么样可以让自动生成的交叉表第一列按我的需要排列的？

Dim g As New CrossTableBuilder("统计表3", DataTables("订单"), "[状态] = \'完成\')
g.HGroups.AddDef("部门")
g.VGroups.AddDef("型号")
g.Totals.AddDef("规格", AggregateEnum.Count, "规格")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "[状态] = \'完成\'
g.Build()
MainTable = Tables("统计表3")

一般部门都有个编号，把这个编号加入到 HGroups ，生成统计后隐藏这个编号列即可。