请教个加载树的问题:
有一个表用加载树分页加载,每页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
|