主题：排序

Dim b As New CrossTableBuilder("订单跟进",DataTables("日报表"))
b.HGroups.AddDef("生产批号") '添加客户列用于水平分组
b.HGroups.AddDef("联号") '添加客户列用于水平分组
b.VGroups.AddDef("工序") '添加产品列用于垂直分组
b.Totals.AddDef("正品数") '添加数量列用于统计
b.Build '生成统计表

以上代码生成的垂直分组比较乱，如何按规定的要求排列。