主题：[求助]怎么在导过来的数据后增加合计

Dim dt1 As DataTable = DataTables("总人口")
Dim dt2 As DataTable = DataTables("村级一览表")
For Each dr As DataRow In dt2.DataRows
    Dim filter As String = ""
    If dr("单位") = "合计" Then
        filter = "单位名称 = '合计'"
    Else
        filter = "单位名称 = '" & dr("单位") & "' and 组名称 = '" & dr("组名称") & "'"
    End If
    Dim fdr As DataRow = dt1.Find(filter)

    For Each dc As DataCol In dt2.DataCols
        If dr.IsNull(dc.Name) Then
            If fdr IsNot Nothing AndAlso fdr.IsNull(dc.Name) = False Then
                dr(dc.Name) = fdr(dc.name)
             End If
        End If
    Next
Next

Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
'定义客户分组
g = New SubtotalGroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "客户" '分组列为客户
g.TotalOn = "数量,金额" '统计数量和金额列
g.Caption = "{0} 小计" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中
'定义产品分组
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "产品"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
'定义总计分组
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示。
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() '生成汇总模式 

按照这个模式做

在我的代码上再增加一个代码用于导过来的这些数据进行一个合计总数就行

 不理解你说的合计总数什么意思，上传例子