主题：分组统计问题

我想在窗口中按钮实现分组统计，并显示在窗口中的datalist中

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

这个是代码
问题：运行出来是对整个表的统计，如果实现对筛选后表的统计

筛选后，在菜单上进行分组统计，就是针对筛选后表的统计，我查看了代码，没有什么不同，按钮中要如何实现这个效果呢

在Build之前，加上一行：


g.Filter =Tables("表A").Filter

太感激了，终于实现了，我搞了一下午没弄明白
万能的论坛