主题：求生成出生统计报表的代码？

 

组这一列怎么从1组至15组按顺利排列

怎么统计2011年12月底的出生报表，增加一个按村，按组，按年，按月的可以选择的生成模式

没有排列一组，二组，三组的功能吗，只能排列1组.2组.3组吗

missing operand after '子女孩次' operator什么意思

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'")
        Next
End Select

统计总数怎么修改成符合到2011年12月31日出生的总数，这个总数是全部出生，怎么修改？怎么增加一个合计

解决了，谢谢，继续

再增加一个表的统计怎么写代码？