以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问交叉统计里能不能通过变量指定统计期间？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26939)
--  作者：samica
--  发布时间：2012/12/17 20:26:00
--  [求助]请问交叉统计里能不能通过变量指定统计期间？

交叉统计里能不能用代码，实现：通过变量指定统计期间？

Dim nj As New GroupTableBuilder("按季同环比统计", DataTables("传染病查询一览表"))
nj.Groups.AddDef("发病日期", DateGroupEnum.Year, "年")
nj.Groups.AddDef("发病日期", DateGroupEnum.Quarter, "季")
nj.Groups.AddDef("疾病名称")
nj.Totals.AddDef("发病日期", AggregateEnum.Count, "", "病例数")
nj.GroupProportion = True
nj.GrandProportion = True
nj.SamePeriodGrowth = True
nj.CircleGrowth = True
nj.Build()

上面的代码实现的功能是统计所有数据，能否有什么方法，通过变量来指定统计期间？如统计两年或三年……。

请高手指导一下，谢谢。
--  作者：y2287958
--  发布时间：2012/12/17 21:40:00
--  
Filter：         字符型，如果只是对SourceDataTable中的部分数据进行统计，可用Filter属性设置条件。
--  作者：sunbrain
--  发布时间：2012/12/17 22:37:00
--  
你先生成统计，然后定义一个filter，进行过滤显示
--  作者：狐狸爸爸
--  发布时间：2012/12/18 8:41:00
--  

Dim dt As Date = Date.today

Dim nj As New GroupTableBuilder("按季同环比统计", DataTables("传染病查询一览表"))
nj.Groups.AddDef("发病日期", DateGroupEnum.Year, "年")
nj.Groups.AddDef("发病日期", DateGroupEnum.Quarter, "季")
nj.Groups.AddDef("疾病名称")
nj.Totals.AddDef("发病日期", AggregateEnum.Count, "", "病例数")
nj.GroupProportion = True
nj.GrandProportion = True
nj.SamePeriodGrowth = True
nj.CircleGrowth = True

nj.Filter = "发病日期 = #" & dt & "#"
nj.Build()
--  作者：samica
--  发布时间：2012/12/18 13:00:00
--  
测试一下，先谢了，狐爸！
--  作者：samica
--  发布时间：2012/12/18 13:26:00
--  

Dim dt_today As Date=Date.Today
Dim dt_stat As new Date(2011,01,01)
Inputvalue(dt_stat,"提示","请输入统计开始日期:")
Dim nj As New GroupTableBuilder("按季同环比统计", DataTables("传染病查询一览表"))
nj.Groups.AddDef("发病日期", DateGroupEnum.Year, "年")
nj.Groups.AddDef("发病日期", DateGroupEnum.Quarter, "季")
nj.Groups.AddDef("疾病名称")
nj.Totals.AddDef("发病日期", AggregateEnum.Count, "", "病例数")
nj.GroupProportion = True
nj.GrandProportion = True
nj.SamePeriodGrowth = True
nj.CircleGrowth = True
nj.Filter= "发病日期 >= #" & dt_stat & "#" And "发病日期 >= #" & dt_today & "#"
nj.Build()

狐爸，运行错误，请指导，谢谢。


图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-12-18 13:27:07编辑过]
--  作者：lin_hailun
--  发布时间：2012/12/18 13:33:00
--  
 改。

nj.Filter= "发病日期 >= #" & dt_stat & "# And 发病日期 >= #" & dt_today & "#"
--  作者：samica
--  发布时间：2012/12/18 14:03:00
--  

谢谢林老师，改成功：

nj.Filter= "发病日期 >= #" & dt_stat & "# And 发病日期 <= #" & dt_today & "#"