主题：[求助]请问交叉统计里能不能通过变量指定统计期间？

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

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()

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

请高手指导一下，谢谢。

Filter：         字符型，如果只是对SourceDataTable中的部分数据进行统计，可用Filter属性设置条件。

你先生成统计，然后定义一个filter，进行过滤显示

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()

测试一下，先谢了，狐爸！

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

 改。

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

谢谢林老师，改成功：

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