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() \'生成汇总模式 

按照这个模式做