Foxtable(狐表) → 用户栏目 → 专家坐堂 → System.OutOfMemoryException”的异常


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

主题：System.OutOfMemoryException”的异常
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		System.OutOfMemoryException”的异常  发帖心情 Post By：2014/9/17 16:33:00 [只看该作者]

这些错误怎么回事   
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.9.16.1
错误所在事件：窗口,产品游览,Button03,Click
详细错误信息：
引发类型为“System.OutOfMemoryException”的异常。



Forms("稍后窗").Show()
Dim Book As New XLS.Book(ProjectPath & "Attachments\产品报价单.xls")
Dim fl As String = "D:\" & "报价预览\" & User.Name & "\ " & Format(Date.Now, "yyyyMMddHHmmss") & "系统产品报价.xls" 
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Forms("稍后窗").Close()


数据量超过20行就会出现


[此贴子已经被作者于2014-9-17 20:06:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/9/17 16:34:00 [只看该作者]

代码发出来看看

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/9/17 16:55:00 [只看该作者]

fox  重装正常了

该死的360 把文件干掉了
[此贴子已经被作者于2014-9-17 16:56:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/9/17 17:09:00 [只看该作者]

流氓360图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/9/17 20:07:00 [只看该作者]

Forms("稍后窗").Show()
Dim Book As New XLS.Book(ProjectPath & "Attachments\产品报价单.xls")
Dim fl As String = "D:\" & "报价预览\" & User.Name & "\ " & Format(Date.Now, "yyyyMMddHHmmss") & "系统产品报价.xls" 
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Forms("稍后窗").Close()


数据量超过20行就会出现
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 如果出现，就是你的图片过大了，内存不够用，暂没有办法解决
[此贴子已经被作者于2014-9-17 20:08:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/9/17 20:12:00 [只看该作者]

那有没有办法在在导入前将文件压缩大小 成定义的大小 然后生成报表

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 你的图片都很大吗？或者很多吗？

 

 调整尺寸大小参考

 

Dim bmp As new bitmap(getImage("d:\test.jpg"), 50, 50)
bmp.save("d:\test2.jpg")
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2014/9/17 20:32:00 [只看该作者]

以下是引用有点甜在2014-9-17 20:16:00的发言：

 你的图片都很大吗？或者很多吗？

 

 调整尺寸大小参考

 

Dim bmp As new bitmap(getImage("d:\test.jpg"), 50, 50)
bmp.save("d:\test2.jpg")




能和下面结合在一起吗    调用的是   产品图片   列的图  都是5M高清图


如果可以我的ListView  图标也一起缩小好了  应该会提高很多的效率


Forms("稍后窗").Show()
Dim Book As New XLS.Book(ProjectPath & "Attachments\产品报价单.xls")
Dim fl As String = "D:\" & "报价预览\" & User.Name & "\ " & Format(Date.Now, "yyyyMMddHHmmss") & "系统产品报价.xls" 
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Forms("稍后窗").Close()

[此贴子已经被作者于2014-9-17 20:34:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 做个例子发上来，比较麻烦
 回到顶部
总数 31 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询