主题：分页加载后导出数据的问题

请教个加载树的问题：

有一个表用加载树分页加载，每页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

那如何实现重新加载前用代码把筛选树的【分页】加载功能清除掉