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

 

如图，怎么增加后半部分的统计，代码怎么写，

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) & "' And 子女出生日期 <= #2011-12-31#"
            r("出生_总数") = DataTables("出生").Compute("Count(_Identify)", filter)
            r("出生_政策内_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 = 1")
            r("出生_政策内_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 = 2")
            r("出生_政策内_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策内' And 子女孩次 > 2 ")
            r("出生_政策外_一孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 = 1")
            r("出生_政策外_二孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 = 2")
            r("出生_政策外_多孩") = DataTables("出生").Compute("Count(_Identify)", filter & " And 子女政策属性 = '政策外' And 子女孩次 > 2")
        Next
End Select
这是前半部分出生的统计，帮忙写下后边的衔接，谢谢

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

 

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

此主题相关图片如下：11.jpg


此主题相关图片如下：12.jpg

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

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 手术类型 = '男性绝育术' And 手术类型 = '女性绝育术'")，这个代码怎么修改成既统计男性绝育术又统计女性绝育术，就是两个都统计，现在统计错了

  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)")