主题：[讨论]关于自定义统计

Dim names As List (Of String) = DataTables("随访名单").GetUniqueValues("预随访地区 Is Not Null","预随访地区")

For Each name As String In names

    For Each r As Row In Tables("统计表B").Rows

        If r("乡镇名称") = name Then

            r("评估人数_2013年_01月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [评估建议完成日期] >= #2013-1-1 0:00:00# And [评估建议完成日期]  < #2013-2-1 0:00:00#")

            r("评估人数_2013年_02月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [评估建议完成日期] >= #2013-2-1 0:00:00# And [评估建议完成日期]  < #2013-3-1 0:00:00#")

            r("评估人数_2013年_03月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [评估建议完成日期] >= #2013-3-1 0:00:00# And [评估建议完成日期]  < #2013-4-1 0:00:00#")

            r("评估人数_2013年_04月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [评估建议完成日期] >= #2013-4-1 0:00:00# And [评估建议完成日期]  < #2013-5-1 0:00:00#")

            r("早孕随访人数_2013年_01月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [早孕随访完成状态] <> '未创建' And [评估建议完成日期] >= #2013-1-1 0:00:00# And [评估建议完成日期]  < #2013-2-1 0:00:00#")

            r("早孕随访人数_2013年_02月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [早孕随访完成状态] <> '未创建' And [评估建议完成日期] >= #2013-2-1 0:00:00# And [评估建议完成日期]  < #2013-3-1 0:00:00#")

            r("早孕随访人数_2013年_03月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [早孕随访完成状态] <> '未创建' And [评估建议完成日期] >= #2013-3-1 0:00:00# And [评估建议完成日期]  < #2013-4-1 0:00:00#")

            r("早孕随访人数_2013年_04月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [早孕随访完成状态] <> '未创建' And [评估建议完成日期] >= #2013-4-1 0:00:00# And [评估建议完成日期]  < #2013-5-1 0:00:00#")

            r("已孕人数_2013年_01月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [当前早孕随访结果] = '已孕'and [早孕随访日期] >= #2013-1-1 0:00:00# And [早孕随访日期]  < #2013-2-1 0:00:00#")

            r("已孕人数_2013年_02月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [当前早孕随访结果] = '已孕' And [早孕随访日期] >= #2013-2-1 0:00:00# And [早孕随访日期]  < #2013-3-1 0:00:00#")

            r("已孕人数_2013年_03月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [当前早孕随访结果] = '已孕' And [早孕随访日期] >= #2013-3-1 0:00:00# And [早孕随访日期]  < #2013-4-1 0:00:00#")

            r("已孕人数_2013年_04月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [当前早孕随访结果] = '已孕' And [早孕随访日期] >= #2013-4-1 0:00:00# And [早孕随访日期]  < #2013-5-1 0:00:00#")

            r("妊娠结局随访人数_2013年_01月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [妊娠结局随访完成状态] <> '未创建' And [早孕随访日期] >= #2013-1-1 0:00:00# And [早孕随访日期]  < #2013-2-1 0:00:00#")

            r("妊娠结局随访人数_2013年_02月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [妊娠结局随访完成状态] <> '未创建' And [早孕随访日期] >= #2013-2-1 0:00:00# And [早孕随访日期]  < #2013-3-1 0:00:00#")

            r("妊娠结局随访人数_2013年_03月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [妊娠结局随访完成状态] <> '未创建' And [早孕随访日期] >= #2013-3-1 0:00:00# And [早孕随访日期]  < #2013-4-1 0:00:00#")

            r("妊娠结局随访人数_2013年_04月") = DataTables("随访名单").Compute("Count(档案编号)","预随访地区 = '" & name & "' And [妊娠结局随访完成状态] <> '未创建' And [早孕随访日期] >= #2013-4-1 0:00:00# And [早孕随访日期]  < #2013-5-1 0:00:00#")

        End If

    Next