Foxtable(狐表)用户栏目专家坐堂 → [讨论]关于自定义统计


  共有4128人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
祁阳
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:508 威望:0 精华:0 注册:2012/4/17 14:41:00
[讨论]关于自定义统计  发帖心情 Post By:2013/8/17 12:00:00 [只看该作者]

以下是写在DataColChanged中自定义统计代码,能不能简化呢?
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
这是统计表的格式

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130817120250.png
图片点击可在新窗口打开查看
现在主要有以下问题:1.生成结果速度太慢 2.如果还有以后的月份要查又怎么办?3.如果乡镇名称列所包含的项目内容和上面年月互换位置,代码应如何转换呢?如果行,就解决了第2个问题。


[此贴子已经被作者于2013-8-17 12:11:33编辑过]

 回到顶部
总数 12 1 2 下一页