现有的按钮代码是：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.VerticalTotal = True
e.Form.controls("Table1").Table.Datasource = g.BuildDataSource

以上代码统计完成后，会形成，产品、数量、金额、项目，我想增加，这个产品对应的产品编码和产品型态，那计算的按钮代码如何写？？

也就是计算出来原本是三列，现在是5列（产品、数量、金额、编码、产品型态）

 告诉你一个便捷的方法，可以自动生成代码的，看看

 http://www.foxtable.com/help/topics/2670.htm

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))

g.Groups.AddDef("产品编码")

g.Groups.AddDef("产品形态")
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.VerticalTotal = True
e.Form.controls("Table1").Table.Datasource = g.BuildDataSource

老师，还有一个问题

Dim dtb As New DataTableBuilder("统计2")
dtb.AddDef("产品", Gettype(String), 20)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Integer))

With e.Form.Controls("Table2").Table
    .datasource = dtb.BuildDataSource
    .allowedit = True
    .AllowResizeRow = False
    .DataTable.SysStyles("EmptyArea").BackColor = Color.Whitesmoke
    .Grid.Styles.Normal.Border.Color = Color.Blue
.SetColVisibleWidth("产品|80|数量|60|金额|60|")
.SetHeaderRowHeight(20)
End With

这段代码是从临时统计表中获取列的代码，如果我增加了产品型态和产品编码后，我的代码是不是这样写呢？？

Dim dtb As New DataTableBuilder("统计2")
dtb.AddDef("产品", Gettype(String), 20)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Integer))

dtb.AddDef("产品型态", Gettype(Integer))
dtb.AddDef("产品编码", Gettype(Integer))

With e.Form.Controls("Table2").Table
    .datasource = dtb.BuildDataSource
    .allowedit = True
    .AllowResizeRow = False
    .DataTable.SysStyles("EmptyArea").BackColor = Color.Whitesmoke
    .Grid.Styles.Normal.Border.Color = Color.Blue
.SetColVisibleWidth("产品|80|数量|60|金额|60|")
.SetHeaderRowHeight(20)
End With

大概吧，这句得改一下，加入

.SetColVisibleWidth("产品|80|数量|60|金额|60|")

Dim dtb As New DataTableBuilder("统计2")
dtb.AddDef("产品", Gettype(String), 20)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Integer))
dtb.AddDef("产品编码", Gettype(Integer))
dtb.AddDef("产品型态", Gettype(Integer))
With e.Form.Controls("Table2").Table
    .datasource = dtb.BuildDataSource
    .allowedit = True
    .AllowResizeRow = False
    .DataTable.SysStyles("EmptyArea").BackColor = Color.Whitesmoke
    .Grid.Styles.Normal.Border.Color = Color.Blue
.SetColVisibleWidth("产品编码|60|产品|80|产品型态|60|数量|60|金额|60|")
.SetHeaderRowHeight(20)
End With

 出现以下窗口提示

这两句改一下

dtb.AddDef("产品编码", Gettype(String), 20)
dtb.AddDef("产品型态", Gettype(String), 20)