If e.Sender.Checked = True Then Dim g As New GroupTableBuilder("统计表", DataTables("出库明细")) g.Groups.AddDef("客户名称") g.Totals.AddDef("数量") g.Totals.AddDef("金额") g.Totals.AddDef("毛利") g.GrandProportion = True g.FromServer = True e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource End If