如图,怎么增加后半部分的统计,代码怎么写,
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
这是前半部分出生的统计,帮忙写下后边的衔接,谢谢