- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何不显示导出ftp图片的错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60463)
-- 发布时间：2014/11/25 14:18:00
-- 如何不显示导出ftp图片的错误
各位老师,
导出excel报表里面有ftp的图片,但有些型号是没有图片的,就会出现附件的错误,需要一个一个点,能不能不显示这个错误?
我导出的报表有很多行,太浪费时间了
此主题相关图片如下：导出ftp图片.jpg
此主题相关图片如下：导出ftp图片.jpg-- 发布时间：2014/11/25 14:22:00
--
用FileExists 先判断一下
-- 发布时间：2014/11/25 14:31:00
--
设置的根目录可能错了。
http://www.foxtable.com/help/topics/2379.htm
[此贴子已经被作者于2014-11-25 14:31:45编辑过]
-- 发布时间：2014/11/25 15:57:00
--
解决不了,还是请老师帮忙,比如附件中有记录20多条,每次excel报表最多只能导出10条记录(没有图片的不导出) ,该怎么写代码
-- 发布时间：2014/11/25 15:58:00
--
好像附件没贴成功,重传一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:限制导出记录数.rar |
-- 发布时间：2014/11/25 15:59:00
--
例子发上来，怎样不行？
[此贴子已经被作者于2014-11-25 15:58:55编辑过]
-- 发布时间：2014/11/25 18:03:00
--
甜老师,例子重新发了,能用代码控制导出的数据量吗?
-- 发布时间：2014/11/25 19:44:00
--
Dim filter As String = ""
For Each r As Row In Tables("表A").Rows
If FileSys.FileExists(ProjectPath & "Attachments\\" & r("图片")) Then
filter &= r("_Identify") & ","
End If
Next
Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls")
Dim fl As String = ProjectPath & "Reports\\模板.xls"
book.Sheets(0)(2,8).Value = "<_Identify in (" & filter.trim(",") & ")>"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2014/11/25 23:58:00
--
可以了，谢谢甜老师！
-- 发布时间：2014/11/26 0:08:00
--
对于ftp的图片好像还是不行，有没有代码固定最大导出行数，超出行数提醒关闭不导出