主题：帮我修改下统计代码，谢谢

发证日期      生育证类型           生育证类别               作废日期            作废原因
2010-4-19       新证    农业一孩              2011-11-29                已生育
2011-3-1  新证   农业一孩  2011-7-6   已生育
2011-3-1  新证   农业一孩  2011-9-9   已生育
2011-1-31  新证   农业一孩 2011-6-27   已生育
2011-4-1  换证   农业一孩 　 　
2010-4-1  新证   农业二孩  2011-3-6   已生育
2012-6-30  新证   农业一孩 　 　
2011-3-10  新证   农业一孩  2011-9-12  已生育
2011-4-1  新证   农业一孩  2011-9-26   已生育
2010-6-30  新证   农业二孩  2011-9-3    已生育
2012-2-13  新证   农业一孩  2012-6-11   已生育
2010-5-20  新证   农业一孩  2010-9-19   已生育

帮我修改下：统计截止到2011.10.31日有农业一孩证人数，并且作废日期大于2011.10.31或作废日期为空的人数
r("已婚未育妇女_其中_有生育证") =DataTables("生育证").Compute("Count(_Identify)", filter & " And  生育证类别 = '农业一孩' And 发证日期 <= '2011-10-31'  And  作废日期 > #2011-10-31# ")