以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在统计时排除已过期数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114815)

--  作者:xiangjiaonuo
--  发布时间:2018/2/23 10:08:00
--  如何在统计时排除已过期数据

老师好:

 

我想实现附件窗口1里点击三个按钮之后按要求出现统计结果,但是现在无法排除已过期数据,统计结果生成为临时表。只需要排除填写开始日期和结束日期行的过期数据,没填写日期行的数据需要保留,请帮忙看下,谢谢!

 

目前是这样写的按钮1:

Dim b As New GroupTableBuilder("窗口1_table1",DataTables("表1"))
b.Groups.AddDef("大区") \'根据产品分组
b.Totals.AddDef("年租金或购买价格")
b.Totals.AddDef("押金")
b.Totals.AddDef("建筑面积")

b.GrandProportion = True
Tables("窗口1_table1").DataSource = b.BuildDataSource()

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


--  作者:有点甜
--  发布时间:2018/2/23 10:22:00
--  
Dim d As Date = Date.Today
Dim b As New GroupTableBuilder("窗口1_table1",DataTables("表1"))
b.Groups.AddDef("大区") \'根据产品分组
b.Totals.AddDef("金额")
b.Totals.AddDef("押金")
b.Totals.AddDef("建筑面积") \'对数量进行统计
b.GrandProportion = True
b.filter = "结束日期 >= #" & d & "# or 结束日期 is null "
Tables("窗口1_table1").DataSource = b.BuildDataSource()

--  作者:xiangjiaonuo
--  发布时间:2018/2/23 10:45:00
--  
感谢有点甜老师!