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

上个例子看看吧

Dim dr As DataRow = e.DataRow

If e.DataCol.Name = "乡镇名称"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End If

效果是一瞬间！（条件未简化）