主题：[求助]自定义统计能否在窗口控件中实现

这是原来统计表B中DataColChanged中的代码：

Dim dr As DataRow = e.DataRow

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

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

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

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

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

End If

    1.如果放到窗口2控件click事件中去执行，能行得通吗，上面的代码应如何变化

    2.上面代码中的日期条件能否在窗口控件中输入，该如何代入。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:孕检统计.table

说明一下，因为在 DataColChanged 中实现自定交统计的话，那个日期没法变化，如果在窗口中实现的话，想统计哪个时段都行，上面的日期列名不需改动，只要在窗口控件中输入具体的起始日期和终止日期就行了。