主题：求助：一个表汇总完了，怎么增加统计下一个表中的数字到这个表的后半部分，代码怎么写

 看不到图片……不知道后面是什么。

此主题相关图片如下：001.gif

类似红色字体那样，自己修改一下列名，修改一下表名，修改一下统计的条件，就行了。

Select Case MainTable.Name
    Case "出生表"
        MainTable.DataTable.DataRows.Clear
        Dim arys As List(Of String()) = DataTables("出生").GetUniqueValues("", "单位名称", "组名称")
        For Each ary As String() In arys         
            Dim r As Row = MainTable.AddNew
            r("单位") = ary(0)
            r("组名称") = ary(1)
            Dim filter As String = "单位名称 = '" & ary(0) & "' And 组名称 = '" & ary(1) & "'"
            r("出生_总数") = DataTables("出生").Compute("Count(_Identify)", filter)
            r("出生_政策内_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 = 1 And 子女出生日期 <= #2011-12-31#")
            r("出生_政策内_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 = 2 And 子女出生日期 <= #2011-12-31#")
            r("出生_政策内_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 > 2 And 子女出生日期 <= #2011-12-31#")
            r("出生_政策外_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 = 1 And 子女出生日期 <= #2011-12-31#")
            r("出生_政策外_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 = 2 And 子女出生日期 <= #2011-12-31#")
            r("出生_政策外_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 > 2 And 子女出生日期 <= #2011-12-31#")
           
            r("................总数") = DaTaTables("手术").Compute("Count(_Identify)", filter & " And 手术日期 <= #2011-12-31#")
        Next
End Select

  r("元月份以来节育手术人数_绝育") = DataTables("手术").Compute("Count(_Identify)", filter & " And (手术类型 = '男性绝育术' or 手术类型 = '女性绝育术')")

代码写在Next后面

 dim nr as row = MainTable.AddNew

 nr("XXX") = MaintTalbe.Compute("Sum(XXX)")
 nr("XXX") = MaintTalbe.Compute("Sum(XXX)")
 nr("XXX") = MaintTalbe.Compute("Sum(XXX)")