主题：[求助]用代码移动“合计”

此主题相关图片如下：移动.png

..............

Dim g As New GroupTableBuilder("分组统计", DataTables("总览"),Filter)
If e.Form.Controls("CheckBox1").Checked Then g.Groups.AddDef("造林年度")
If e.Form.Controls("CheckBox2").Checked Then g.Groups.AddDef("乡名")
If e.Form.Controls("CheckBox3").Checked Then g.Groups.AddDef("村名")
If e.Form.Controls("CheckBox4").Checked Then g.Groups.AddDef("造林树种_主要树种","主要树种")'添加村名列用于分组
g.Totals.AddDef("小班号",AggregateEnum.Count,"小班个数")
g.Totals.AddDef("设计面积","面积合计") '添加数量列用于统计
g.VerticalTotal = True '自动垂直汇总
g.Build()
MainTable = Tables("分组统计")
Tables("分组统计").Sort = "面积合计 DESC" '降序排列

，移动“合计”

If cmc.Value IsNot Nothing or e.Form.Controls("CheckBox3").Checked Then

移动“合计”(如图)

End if
.............