主题：这样能实现对临时表汇总吗？

Tables("按时间段统计_table1").DataSource=DataTables("表B")

    Dim t As Table = Tables("按时间段统计_table1")
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    '定义客户分组
    g = New Subtotalgroup '定义一个新的分组
    g.GroupOn = "*"   '注意总计分组用符号*表示.
    g.Aggregate = AggregateEnum.Sum '统计类型为求和
    Dim zf As String=""
    For Each c As Col In Tables("按时间段统计_table1").Cols
        If c.IsNumeric
            If zf=""
                zf=c.name
            Else
                zf=zf & "," & c.name
            End If
        End If
    Next
    msgbox(zf)
    g.TotalOn =  zf '统计数量和金额列
    g.Caption = "合计"          '设置标题
    t.SubtotalGroups.Add(g) '加到分组集合中
    t.Subtotal()

这样写没有效果呢？