以文本方式查看主题

-  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=126738)
--  作者：skyerlin
--  发布时间：2018/10/27 21:41:00
--  动态设置打印条件无效
问题：在控件按钮上通过下列代码，实现窗口副表（统计报表_Table1）生成打印报表。窗口同时还有筛选控件，如果不用筛选控件，能正确生成欠费>0的记录报表；如果先通过筛选后，也能生成欠费记录，但欠费=0的记录也一同生成，数据不对，设置条件无效。请问要怎样解决？

Dim Book As New XLS.Book(ProjectPath & "Attachments\\欠费名单.xls")
Dim fl As String = ProjectPath & "Reports\\欠费名单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,0).Value = "<统计报表_Table1>"  \'写入表名
Sheet(2,14).Value = "<欠费 > 0>"  \'写入表名
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
--  作者：skyerlin
--  发布时间：2018/10/28 10:11:00
--  
自己顶。
--  作者：skyerlin
--  发布时间：2018/10/28 15:33:00
--  
再顶
--  作者：skyerlin
--  发布时间：2018/10/29 9:29:00
--  
求助
--  作者：有点甜
--  发布时间：2018/10/29 10:16:00
--  

1、能不能换一种思路，比如，表格先筛选成这样 tables("统计报表_Table1").filter = "<欠费 > 0>"  

 

再生成excel报表？报表模板条件写成<All>

 

2、具体的例子发上来，别人才能测试。请上传附件。
--  作者：skyerlin
--  发布时间：2018/10/30 11:56:00
--  
谢谢，已可以了。
解决方法：通过通过判断语句获取筛选控件的值先实现表筛选，再生成报表。