主题：请给修改一下排序代码

请给修改一下排序代码

此主题相关图片如下：6.jpg

代码如下，要求出现图5降序效果。
Dim g As New CrossTableBuilder("统计表2", DataTables("表A"))
g.HGroups.AddDef("年")
g.HGroups.AddDef("品号")
g.VGroups.AddDef("月")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表2")

此主题相关图片如下：5.jpg

1、2、3、4列全部降序排列