Foxtable(狐表)用户栏目专家坐堂 → 从后台筛选数据再选部分导出 到excel 中的问题


  共有2161人关注过本帖树形打印复制链接

主题:从后台筛选数据再选部分导出 到excel 中的问题

帅哥哟,离线,有人找我吗?
yiningyl
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:502 威望:0 精华:0 注册:2018/3/26 18:04:00
从后台筛选数据再选部分导出 到excel 中的问题  发帖心情 Post By:2018/6/11 16:46:00 [只看该作者]

我想从后台筛选数据导出 到excel 中,我只写出了 导出满足条件的全部数据,但是因为数据量大,要是筛选出的数据太多,一次性导出, 怕系统崩溃(100万+数据),所以想给两个文本框 ,比如让用户输入 从 a1  条 到a2 条,限制用户一次性导出的量, 这个代码应该怎么写啊? 老师们帮帮忙。

Dim Book As New XLS.Book(ProjectPath & "Attachments\list.xls")
Dim fl As String = ProjectPath & "Reports\信息列表.xls"
 
Dim a1,a2 As Integer
a1=CInt(e.Form.Controls("rows1").value )

a2=CInt(e.Form.Controls("rows2").value )


book.AddDataTable("xxb","xxb","S e l e c t * from xxb where " &  filter)    'filter 是前面已经得到值的全局代码过滤条件

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()


 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/11 16:49:00 [只看该作者]

回复楼上,你用的是sqlserver数据库吧?

 

分页的sql语句,参考这里 http://www.foxtable.com/webhelp/scr/2721.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
yiningyl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:502 威望:0 精华:0 注册:2018/3/26 18:04:00
  发帖心情 Post By:2018/6/12 10:02:00 [只看该作者]

是的,我用的是sql server 2008 ,我研究下老师给的链接,谢谢。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 10:04:00 [只看该作者]

在这里测试生成的sql语句 http://www.foxtable.com/webhelp/scr/1484.htm

 

如果报错,贴出出错提示。


 回到顶部