if e.Form.Controls("ComboBox11").Value is nothing then
    MsgBox("请选择统计项目!",64,"提示")
else
Dim g As New GroupTableBuilder("销售统计表", DataTables("表A"))
Dim Result As String =e.Form.Controls("ComboBox11").Value
Select Case Result 
    Case "日期"
       g.Groups.AddDef("日期", DateGroupEnum.Month, "月")
    Case "医院"
       g.Groups.AddDef("医院")
    Case "医生"
       g.Groups.AddDef("医生")
    Case "产品"
       g.Groups.AddDef("产品")
 End Select
g.Totals.AddDef("金额", AggregateEnum.Sum,"销售额")
g.VerticalTotal = True
g.Build()

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = DataTables("销售统计表")
dst.Build()
end if