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


  共有1497人关注过本帖树形打印复制链接

主题:[求助]在Excel报表生成前执行的统计语句,请问我该如何修改?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 14:45: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)

 

msgbox(vars("sum8"))

msgbox(DataTables("r3").compute("sum(r300_15)", filter6))


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 15:35:00 [显示全部帖子]

 那就说明计算没问题。如果还有问题,做具体例子上传说明。

 回到顶部