[求助】两个时点筛选的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助】两个时点筛选的问题

共有2348人关注过本帖树形打印复制链接主题：[求助】两个时点筛选的问题

zqxzhs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：4810 威望：0 精华：0 注册：2015/4/30 22:08:00

[求助】两个时点筛选的问题 发帖心情

Post By：2016/4/29 8:36:00 [只看该作者]

我想进行分组统计并计算出同比，那么就需要两个时点数据，不知道这个条件应该怎样写？

Dim g As New GroupTableBuilder("统计表1", DataTables("资产负债表"))
'g.Filter = "rq = #" & ks.Value & "# And rq = #" & js.Value & "#"
g.Groups.AddDef("rq", DateGroupEnum.Year, "年")
g.Groups.AddDef("rq", "月")
g.Groups.AddDef("rq", DateGroupEnum.Day, "日")
g.Totals.AddDef("zb1")
g.Totals.AddDef("zb2")
g.Totals.AddDef("zb3")
g.Totals.AddDef("zb4")
g.Totals.AddDef("zb5")
g.Totals.AddDef("zb6")
g.Totals.AddDef("zb7")
g.Totals.AddDef("zb8")
g.Totals.AddDef("zb9")
g.Totals.AddDef("zb10")
g.Totals.AddDef("zb11")
g.Totals.AddDef("zb12")
g.Totals.AddDef("zb13")
g.Totals.AddDef("zb14")
g.Totals.AddDef("zb16")
g.Totals.AddDef("zb17")
g.Totals.AddDef("zb18")
g.SamePeriodGrowth = True
Tables("生成经监测表_Table1").DataSource = g.BuildDataSource()

请教老师！

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/4/29 8:49:00 [只看该作者]

不用设置什么条件的，代码运行有什么问题？

可以按照下面的方式查看生成的sql

http://www.foxtable.com/help/topics/1616.htm

如果同时有多个日期分组，例如同时根据日期的年和月分组统计，那么可以选择选项“生成同比”

zqxzhs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：4810 威望：0 精华：0 注册：2015/4/30 22:08:00

Post By：2016/4/29 9:04:00 [只看该作者]

老师，内容多了，我仅想看到一个时点的数据，把该时点数据导出，我想加载当期与去年同期数，加载条件不知怎么写，加载后没有数据。

[此贴子已经被作者于2016/4/29 9:04:57编辑过]

zqxzhs

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：4810 威望：0 精华：0 注册：2015/4/30 22:08:00

Post By：2016/4/29 9:10:00 [只看该作者]

老师，内容多我想看到一个时点数据和同比，所以要加载两个时点的数据，先筛选后再分组统计，将统计的数据导出。

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/29 9:12:00 [只看该作者]

比如

g.Filter = "rq >= #" & ks.Value & "# And rq <= #" & js.Value & "# Or rq >= #" & ks.Value.AddYears(-1) & "# And rq <= #" & js.Value.AddYears(-1) & "#"

[此贴子已经被作者于2016/4/29 9:39:06编辑过]

zqxzhs

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：4810 威望：0 精华：0 注册：2015/4/30 22:08:00

Post By：2016/4/29 9:21:00 [只看该作者]

这样写条件，统计结果无数据。

zqxzhs

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：4810 威望：0 精华：0 注册：2015/4/30 22:08:00

Post By：2016/4/29 9:32:00 [只看该作者]

Dim ks As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim js As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
'DataTables("资产负债表").LoadFilter = ""
'DataTables("资产负债表").Load
'

g.Totals.AddDef("zb1")
g.Totals.AddDef("zb2")
g.Totals.AddDef("zb3")
g.Totals.AddDef("zb4")
g.Totals.AddDef("zb5")
g.Totals.AddDef("zb6")
g.Totals.AddDef("zb7")
g.Totals.AddDef("zb8")
g.Totals.AddDef("zb9")
g.Totals.AddDef("zb10")
g.Totals.AddDef("zb11")
g.Totals.AddDef("zb12")
g.Totals.AddDef("zb13")
g.Totals.AddDef("zb14")
g.Totals.AddDef("zb16")
g.Totals.AddDef("zb17")
g.Totals.AddDef("zb18")
g.Filter = "rq = #" & ks.Value & "#"
g.SamePeriodGrowth = True
Tables("生成监测表_Table1").DataSource = g.BuildDataSource()