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

 子女孩子 后面缺少操作数

 你的子女孩次列是什么类型的？还有你的条件怎么写了？

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日出生的总数，这个总数是全部出生，怎么修改？怎么增加一个合计

 首先，你的子女孩次改成整数类型，然后，你的子女出生日期改成日期时间类型。

 然后编写代码

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

解决了，谢谢，继续

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