以文本方式查看主题

-  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=111313)
--  作者：aza520
--  发布时间：2017/12/19 22:55:00
--  怎样生成加载树选择后加载的数据
我想只生成加载树选择后加载的数据，但以下代码生成的报表将当前用户能加载的行全部生成？请老师指正

DataTables("S征地明细").LoadFilter = "乡镇 = \'" & user.name & "\'"
DataTables("S征地明细").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()
--  作者：有点蓝
--  发布时间：2017/12/19 23:00:00
--  
去掉这2行代码

DataTables("S征地明细").LoadFilter = "乡镇 = \'" & user.name & "\'"
DataTables("S征地明细").Load
--  作者：aza520
--  发布时间：2017/12/19 23:21:00
--  
老师，去掉后只能生成当前加载页的数据，其它页的数据不能生成。比如我点先加载树后，有两页的数据，我想生成这两页数据的表
--  作者：有点甜
--  发布时间：2017/12/20 8:56:00
--  
以下是引用aza520在2017/12/19 23:21:00的发言：
老师，去掉后只能生成当前加载页的数据，其它页的数据不能生成。比如我点先加载树后，有两页的数据，我想生成这两页数据的表

 

改成

 

DataTables("S征地明细").LoadTop = ""
DataTables("S征地明细").LoadPage = 0
DataTables("S征地明细").Load
--  作者：aza520
--  发布时间：2017/12/20 9:28:00
--  
老师，还是只能生成当前页，我是基于模板生成的
--  作者：有点甜
--  发布时间：2017/12/20 9:35:00
--  

Dim str = DataTables("父表").SQLGetComboListString("关联列", DataTables("父表").LoadFilter)
str = str.replace("|", "\',\'")
DataTables("S征地明细").LoadFilter = "关联列 in (\'" & str & "\')"
DataTables("S征地明细").LoadTop = ""
DataTables("S征地明细").LoadPage = 0
DataTables("S征地明细").Load
--  作者：aza520
--  发布时间：2017/12/20 10:01:00
--  
可以了，多谢老师指点