- 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=22142)
-- 发布时间：2012/8/3 22:51:00
-- 如何在报表中输出当天的数据
我想在输出报表的时候只输出当天的数据，如何使用 Date.Today()函数，而不用每天都要手动去输入当天的时间，再去输出报表，实现自动筛选当天的数据。急......
-- 发布时间：2012/8/3 22:59:00
--
咋没人呢？
-- 发布时间：2012/8/3 23:07:00
--
如上图设置的话，我每天都要改时间，很麻烦
此主题相关图片如下：qq截图20120803231206.png
-- 发布时间：2012/8/5 9:30:00
--
案例是输出所有时段的数据，我只要当天的，谢谢您的回答！
-- 发布时间：2012/8/6 8:44:00
--
模版不要设置打印条件，可以手工筛选出当天的记录，然后再打印。
如果要自动，可以做个按钮，代码：大概就是：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\模版.xls")
Dim fl As String = ProjectPath & "Reports\\模版.xls"
Tables("XXX").Filter = "日期= #" & Date.Today & "#"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2012/8/6 17:41:00
--
非常感谢，仰慕，学习中......