[求助]在Excel报表生成前执行的统计语句，请问我该如何修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在Excel报表生成前执行的统计语句，请问我该如何修改？

共有1700人关注过本帖树形打印复制链接主题：[求助]在Excel报表生成前执行的统计语句，请问我该如何修改？

1452565001

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

加好友

发短信

等级：幼狐帖子：54 积分：486 威望：0 精华：0 注册：2017/6/7 16:59:00

[求助]在Excel报表生成前执行的统计语句，请问我该如何修改？ 发帖心情

Post By：2017/9/11 13:51:00 [只看该作者]

在Excel报表生成前执行的语句

Dim dk As Date = Date.Today
Dim filter6 As String = " r306 < #" & dk & "# and r320 Is Null "
vars("sum8") = DataTables("r3").compute("sum(r300_15)", filter6)

这句话是希望计算r3表中，在r306这一列的日期在今天之前，并且r320这一列为空的，r300_15列的所有值的合，这个程序运行不会出现错误提示但是算不出正确的值

请问老师我该如何修改

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/11 14:08:00 [只看该作者]

执行下面代码，看筛选是否正确

Dim dk As Date = Date.Today
Dim filter6 As String = " r306 < #" & dk & "# and r320 Is Null "

Tables("r3").Filter = filter6

1452565001

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

加好友

发短信

等级：幼狐帖子：54 积分：486 威望：0 精华：0 注册：2017/6/7 16:59:00

Post By：2017/9/11 14:27:00 [只看该作者]

筛选是没问题的求和所得的值是0

1452565001

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

加好友

发短信

等级：幼狐帖子：54 积分：486 威望：0 精华：0 注册：2017/6/7 16:59:00

Post By：2017/9/11 14:32:00 [只看该作者]

不知道是否是应为我对这张表进行的多次筛选的缘故？数据是分了两部分的，这样做是否有问题？应该如何改呢？

Dim filter5 As String = " r306 >= #" & dk & "# and r320 Is Null "
Dim filter6 As String = " r306 < #" & dk & "# and r320 Is Null "
vars("sum7") = DataTables("r3").compute("sum(r300_15)", filter5)
vars("sum8") = DataTables("r3").compute("sum(r300_15)", filter6)