主题：[求助]分页加载数据该如何导出数据到EXELL

[求助]分页加载数据该如何导出数据到EXELL

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
   dlg.Filter= "excel文件|*.xls" '设置筛选器
   If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Dim ex As New Exporter   
     ex.SourceTableName ="crm_products"  '指定导出表
     ex.filepath = dlg.FileName  '指定目标文件 
     ex.Format = "Excel" '导出格式为Excel
     ex.Fields = "product_name,product_code,Sell_price,StockNumber,producttype_id,订单数量,kaitong" '指定导出字段
     '按照查询的方式查询
     ex.Filter = "[producttype_id]=91 and StockNumber=1 and 订单数量 is null and (kaitong=1 or kaitong is null) " '指定导出条件
     ex.Export() '开始导出
     messagebox.show("成功导出数据")
   End If

 

我现在用的这个导出EXECELL表的方式，但是当我吧crm_products改成分页加载的时候，每次分页表的加载进来的数据都是分页的数据，而不是全部的crm_products。所有导出的数据就不全。

如何直接从后台也就是SQL数据库直接导出数据到EXCELL，而不是从加载的DATAtable里导出表，因为crm_products数据量大，无法全部加载

呵呵,没有办法呢,想要导出,就必须要加载进来.

 加载全部以后，才能导出，当然你可以用一个查询表/窗口表过度一下，这个表不显示出来就行了。