以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  分页加载后导出数据的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171403)
--  作者：HANZHIGANG
--  发布时间：2021/8/28 16:16:00
--  分页加载后导出数据的问题
请教个加载树的问题：

有一个表用加载树分页加载，每页10行数据
点击其中的某一个节点，符合条件的35条数据分4页进行了加载
用以下代码导出数据，只导出了当前页的10条
如何实现这4页的数据全部都导出来
以下代码如何改，还是有其他方法，请指导一下

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
        dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
        If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
            Tables("车辆管理").SaveExcel(dlg.FileName, "车辆管理")  \'保存文件
            Dim Result As DialogResult
            Result = MessageBox.Show("导出成功,是否打开所导出文件?", "提示",  MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
                Dim Proc As New Process
                Proc.File = dlg.FileName
                Proc.Start()
            End If
        End If
--  作者：有点蓝
--  发布时间：2021/8/28 16:19:00
--  
方法1、一次性把所有数据加载再导
2、自己使用代码逐行导出：http://www.foxtable.com/webhelp/topics/1148.htm
加载一页，导出，再加载下一页，再导
3、使用模板。从后台加载数据导出：http://www.foxtable.com/webhelp/topics/3233.htm
--  作者：HANZHIGANG
--  发布时间：2021/8/28 16:58:00
--  
那如何实现重新加载前用代码把筛选树的【分页】加载功能清除掉
--  作者：有点蓝
--  发布时间：2021/8/28 17:14:00
--  
参考：http://www.foxtable.com/webhelp/topics/1928.htm
比如：
DataTables("订单").LoadTop = nothing
DataTables("订单").LoadFilter = ""
DataTables("订单").Load