- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于表分页加载后输出报表及打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89931)
-- 发布时间：2016/9/1 15:39:00
-- [求助]关于表分页加载后输出报表及打印问题
已经将表分页加载后，制作excel报表只能输出本页的内容，如何做到输出全部（筛选后全部）的数据，以下是程序~~~请老师指导
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
[此贴子已经被作者于2016/9/1 15:40:41编辑过]
-- 发布时间：2016/9/1 15:50:00
--
这个没有办法，只能在输出前先加载所有筛选的数据
不然就只能通过代码输出了http://www.foxtable.com/webhelp/scr/1148.htm
-- 发布时间：2016/9/1 21:40:00
-- [求助]
我用的是基于模版生成，如何实现输出筛选的全部数据呢（未筛选就全部输出），给出的例子很简洁，代码写不来啊~~~~老师求救
PS：是否将筛选按钮click代码加到生成报表的按钮时间前面？？但是没用
DataTables("装备数据库").loadFilter = ""
DataTables("装备数据库").load()
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()
[此贴子已经被作者于2016/9/1 21:50:03编辑过]
-- 发布时间：2016/9/1 21:55:00
--
With DataTables("装备数据库")
.LoadTop = "100 Percent"
.Load()
End With
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()
With DataTables("装备数据库")
.LoadTop = 20
.LoadPage = 0
.Load()
End With
-- 发布时间：2016/9/1 22:23:00
--
感谢老师~~~全部输出解决了~~~~