主题：[求助]请狐表高手帮助，如何才能使代码更优？

没时间啊,找找lin_hailun

他是大神级的,我有问题还要找他帮忙

lin_hailun大神啊，在线吗？您给看看吧，到底是什么原因导致统计结果不正确的，给找下原因啊，谢谢！

不停刷新ing……

        '.........
        Dim dtb As New DataTableBuilder("时空分布")
        dtb.AddDef("社区名称", Gettype(String), 16)
        dtb.AddDef("总数", Gettype(Integer))
        dtb.AddDef("一月", Gettype(Integer),"","1月")
        dtb.AddDef("二月", Gettype(Integer),"","2月")
。
。
。
        dtb.AddDef("十二月", Gettype(Integer),"","12月")
        dtb.Build()
        For Each nm As String In DataTables("社区名称").GetUniqueValues("","社区名称")
            Dim dr As DataRow = DataTables("时空分布").AddNew()
            dr("社区名称") = nm
            dr("一月") = DataTables("传染病查询一览表").Compute("COUNT(社区名称)","[社区名称] = '" & nm & "' And （日期=一月条件）
.
.
.
.
.
..

        Next

 

大概就这样，你自己修改下

行，nblwar老师，我自己先做着，不行的话，还请您关注。谢谢！

做一个简单的，其余的自己做。楼主，先踏实帮助吧，你这样要走很多弯路的。

 

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

点击浏览该文件:desktop.zip

使用了临时表做统计，但结果还是0（测试数据里应该有）

 

Dim dtb As New DataTableBuilder("年龄分布")
        dtb.AddDef("疾病名称", Gettype(String), 16)
        dtb.AddDef("总数", Gettype(Integer))
        dtb.AddDef("一月", Gettype(Integer),"","1月")
        dtb.AddDef("二月", Gettype(Integer),"","2月")
        dtb.AddDef("三月", Gettype(Integer),"","3月")
        dtb.AddDef("四月", Gettype(Integer),"","4月")
        dtb.AddDef("五月", Gettype(Integer),"","5月")
        dtb.AddDef("六月", Gettype(Integer),"","6月")
        dtb.AddDef("七月", Gettype(Integer),"","7月")
        dtb.AddDef("八月", Gettype(Integer),"","8月")
        dtb.AddDef("九月", Gettype(Integer),"","9月")
        dtb.AddDef("十月", Gettype(Integer),"","10月")
        dtb.AddDef("十一月", Gettype(Integer),"","11月")
        dtb.AddDef("十二月", Gettype(Integer),"","12月")
        dtb.Build()
        For Each nm As String In DataTables("疾病名称").GetUniqueValues("","疾病名称")
            Dim dr As DataRow = DataTables("年龄分布").AddNew()
            dr("疾病名称") = Jb_cmb
            dr("一月") = DataTables("传染病查询一览表").Compute("COUNT(疾病名称)","[疾病名称] = '" & Jb_cmb & "' And ([年龄]>=0 And [年龄]<=5) And ([发病日期]>=#" & rq_m1 & "# And [发病日期]<=#" & rq_d1 & "# )")
        Next

 不加年龄限制，能正确统计出结果，加了年龄限制，就统计不出来了。

林老师的代码更简洁，更实用，但是这条统计我的代码也能正确实现。

我现在的问题是年龄三间分布统计不出正确结果来，请帮助解决，谢谢。

Dim dtb As New DataTableBuilder("年龄分布")
dtb.AddDef("社区名称", Gettype(String), 16)
dtb.AddDef("总数", Gettype(Integer))
dtb.AddDef("一月", Gettype(Integer),"","1月")
dtb.AddDef("二月", Gettype(Integer),"","2月")
dtb.AddDef("三月", Gettype(Integer),"","3月")
dtb.AddDef("四月", Gettype(Integer),"","4月")
dtb.AddDef("五月", Gettype(Integer),"","5月")
dtb.AddDef("六月", Gettype(Integer),"","6月")
dtb.AddDef("七月", Gettype(Integer),"","7月")
dtb.AddDef("八月", Gettype(Integer),"","8月")
dtb.AddDef("九月", Gettype(Integer),"","9月")
dtb.AddDef("十月", Gettype(Integer),"","10月")
dtb.AddDef("十一月", Gettype(Integer),"","11月")
dtb.AddDef("十二月", Gettype(Integer),"","12月")
dtb.Build()
For Each nm As String In DataTables("社区名称").GetUniqueValues("","社区名称")
    Dim dr As DataRow = DataTables("年龄分布").AddNew()
    dr("社区名称") = nm
    dr("一月") = DataTables("传染病查询一览表").Compute("COUNT(所属社区)","[所属社区] = '" & nm & "' And ([发病日期] >= #01/01/2012# And [发病日期] <= #02/01/2012#)")
Next

这张临时表的意思，我弄清楚了，是按社区按月份统计的，我要统计的是按年龄段按月份统计，有什么方法可以实现？