Foxtable(狐表)用户栏目专家坐堂 → [求助]如何在报表前进行可变的筛选设计?


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

主题:[求助]如何在报表前进行可变的筛选设计?

美女呀,离线,留言给我吧!
1452565001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:486 威望:0 精华:0 注册:2017/6/7 16:59:00
[求助]如何在报表前进行可变的筛选设计?  发帖心情 Post By:2017/9/25 12:02:00 [只看该作者]

我的项目中有三列 分别是 金额 、业务类型 和 起始日期,想制作一个窗口在生成报表之前提示填写 起始时间 和 业务类型,这两项可以不填,不填时默认对所有数据统计生成金额的合计报表,如果填写的话,就针对所填写的内容进行筛选,筛选出晚于起始时间并且等于业务类型的行,然后合计这些行的金额。请问老师可否实现?我该如何做?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 12:03:00 [只看该作者]

 先筛选,再生成报表

 

http://www.foxtable.com/webhelp/scr/1058.htm

 


 回到顶部
美女呀,离线,留言给我吧!
1452565001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:486 威望:0 精华:0 注册:2017/6/7 16:59:00
  发帖心情 Post By:2017/9/25 13:57:00 [只看该作者]

请问如何控制筛选完成再继续生成报表呢?这个筛选框会跟报表同时运行,该如何控制呢

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 14:59:00 [只看该作者]

以下是引用1452565001在2017/9/25 13:57:00的发言:
请问如何控制筛选完成再继续生成报表呢?这个筛选框会跟报表同时运行,该如何控制呢

 

用代码生成报表

 

http://www.foxtable.com/webhelp/scr/1145.htm

 


 回到顶部
美女呀,离线,留言给我吧!
1452565001
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:486 威望:0 精华:0 注册:2017/6/7 16:59:00
  发帖心情 Post By:2017/9/25 15:42:00 [只看该作者]

按照老师所说做成了筛选,但是统计的结果还是按全部的数据统计的,请问我该如何修改?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 15:59:00 [只看该作者]

以下是引用1452565001在2017/9/25 15:42:00的发言:
按照老师所说做成了筛选,但是统计的结果还是按全部的数据统计的,请问我该如何修改?

 

做一个对应的例子发上来看看。


 回到顶部
美女呀,离线,留言给我吧!
1452565001
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:486 威望:0 精华:0 注册:2017/6/7 16:59:00
  发帖心情 Post By:2017/9/25 16:25:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 16:28:00 [只看该作者]

改代码

 


Dim sum As Double = 0
For Each dr As Row In Tables("表A").Rows
    sum += dr("r10")
Next
vars("je") = sum

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\金额统计表.xls")
Dim fl As String = ProjectPath & "Reports\金额统计表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()


 回到顶部
美女呀,离线,留言给我吧!
1452565001
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:54 积分:486 威望:0 精华:0 注册:2017/6/7 16:59:00
  发帖心情 Post By:2017/9/25 16:39:00 [只看该作者]

如果代码是这样的应该如何修改呢?
vars("je") = DataTables("表A").compute("sum(r10)", filter)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 16:41:00 [只看该作者]

vars("je") = Tables("表A").compute("sum(r10)")

 回到顶部
总数 18 1 2 下一页