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

你的年龄列是字符列

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 [年龄]>=0 And [年龄] <=5 And ([发病日期] >= #01/01/2012# And [发病日期] <= #02/01/2012#)")
Next 

 

这段代码能统计，但是出来的结果就是0，（实际数据中有一条5岁儿童的记录），为什么统计不出来，请大神指点。

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 i As Integer = 0 To 80 Step 5
    Dim dr As DataRow = DataTables("年龄分布").AddNew()
    dr("年龄段") = i & "-" & i + 5
    dr("一月") = DataTables("传染病查询一览表").Compute("COUNT(年龄)","([年龄] >= " & i & " And [年龄] < " & i+5 & ") And ([发病日期] >= #01/01/2012# And [发病日期] <= #02/01/2012#)")
Next

 

把年龄列全部改成整数列

 自己完善一下吧。

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

点击浏览该文件:desktop.zip

找到出错原因了，一个很低级的错误：[年龄]>='0' And [年龄] <='5'。

就是这样低级的错误，麻烦了大家一上午，非常抱歉，感谢各位大侠的帮助、指导。 

林老师，您的代码：

For i As Integer = 2 To 17
    For j As Integer = 1 To 12
        Dim ary() As String = Sheet1(i,0).Text.Split("－")
        Sheet1(i, j).Value = dt.Compute("count(编号)", "[疾病名称]='" & Jb_cmb & "' And 年龄 >= '" & ary(0) & "' And 年龄 <= '" & ary(1) & "' And [发病日期]>=#" & new Date(rq_m1.Year, j, 1) & "# And [发病日期]<=#" & new Date(rq_m1.Year, j, Date.DaysInMonth(rq_m1.Year,j)) & "#")
    Next
Next
很实用，但是统计出的结果不正确，不知道什么原因，请您给查一下，好吗？

疾病名称的条件好像失效了，统计出了全部的疾病，而且年龄条件有一部分也失效了（5月份23岁（21-25岁组）的麻疹，给统计到5月份0-5岁组去了。

 呃，是年龄的字段问题，把年龄列调整成数值类型，字符比较的话，不同于数字的比较，然后条件这样写。

Sheet1(i, j).Value = dt.Compute("count(编号)", "[疾病名称]='" & Jb_cmb & "' And 年龄 >= " & ary(0) & " And 年龄 <= " & ary(1) & " And [发病日期]>=#" & new Date(rq_m1.Year, j, 1) & "# And [发病日期]<=#" & new Date(rq_m1.Year, j, Date.DaysInMonth(rq_m1.Year,j)) & "#")

又出新状况：索引超出了数组界限

Dim Sheet1 As XLS.Sheet = Book.Sheets("年龄分布")
Sheet1(0,1).value ="***街道" & rq_m1.year & "年" & jb_cmb & "三间分布(年龄)"
For i As Integer = 2 To 17
    For j As Integer = 1 To 12
        Dim ary() As String = Sheet1(i,1).Text.Split("-")
                 Sheet1(i, j+1).Value = dt.Compute("count(疾病名称)", "[疾病名称]='" & Jb_cmb & "' And 年龄 >= " & ary(0) & " And 年龄 <= " & ary(1) & " And [发病日期]>=#" & new Date(rq_m1.Year, j, 1) & "# And [发病日期]<=#" & new Date(rq_m1.Year, j, Date.DaysInMonth(rq_m1.Year,j)) & "#")
        Next
Next

注意字符的全角和半角。

Sheet1(i,1).Text.Split("－")

保持与excel的一直

还是错误！
此主题相关图片如下：snap3.png