主题：[求助]分组统计表的列宽怎样设定？

默认表宽超出屏幕范围：

想在以下代码中加入一条，设定列宽：

Dim g As New GroupTableBuilder("6月份工时统计", DataTables("工时记录"))

g.Filter = "[月份]= '6'"

g.Groups.AddDef("姓名")

g.Totals.AddDef("产品定额")
g.Totals.AddDef("产品实动")
g.Totals.AddDef("lzd")
g.Totals.AddDef("lzs")
g.Totals.AddDef("lwd")
g.Totals.AddDef("lws")
g.Totals.AddDef("lnd")
g.Totals.AddDef("lns")
g.Totals.AddDef("lqd")
g.Totals.AddDef("lqs")
g.Totals.AddDef("lss")
g.Totals.AddDef("ljs")
g.Totals.AddDef("合计定额")
g.Totals.AddDef("合计实动")
g.Totals.AddDef("超额率",AggregateEnum.Average,"超额率")

g.VerticalTotal = True
g.Build()
MainTable = Tables("6月份工时统计")

Forms("返回").OpenTo("6月份工时统计")
Forms("返回").Controls("TextBox1").Value = "提示: 月份工时统计。"
MainTable.ShowCell(0, 0) '显示第一行
MainTable.Focus()