以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在报表前进行可变的筛选设计?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107296)

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

 先筛选,再生成报表

 

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

 


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

 

用代码生成报表

 

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

 


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

 

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


--  作者:1452565001
--  发布时间:2017/9/25 16:25:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点甜
--  发布时间: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
--  发布时间:2017/9/25 16:39:00
--  
如果代码是这样的应该如何修改呢?
vars("je") = DataTables("表A").compute("sum(r10)", filter)
--  作者:有点甜
--  发布时间:2017/9/25 16:41:00
--  
vars("je") = Tables("表A").compute("sum(r10)")