以文本方式查看主题

-  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)

--  作者:avatarasdf
--  发布时间:2014/11/25 14:18:00
--  如何不显示导出ftp图片的错误
各位老师,

导出excel报表里面有ftp的图片,但有些型号是没有图片的,就会出现附件的错误,需要一个一个点,能不能不显示这个错误?
我导出的报表有很多行,太浪费时间了
图片点击可在新窗口打开查看此主题相关图片如下:导出ftp图片.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间: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编辑过]

--  作者:avatarasdf
--  发布时间:2014/11/25 15:57:00
--  
解决不了,还是请老师帮忙,比如附件中有记录20多条,每次excel报表最多只能导出10条记录(没有图片的不导出) ,该怎么写代码
--  作者:avatarasdf
--  发布时间:2014/11/25 15:58:00
--  
好像附件没贴成功,重传一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:限制导出记录数.rar


--  作者:有点甜
--  发布时间:2014/11/25 15:59:00
--  
 例子发上来,怎样不行?
[此贴子已经被作者于2014-11-25 15:58:55编辑过]

--  作者:avatarasdf
--  发布时间: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()

--  作者:avatarasdf
--  发布时间:2014/11/25 23:58:00
--  
可以了,谢谢甜老师!
--  作者:avatarasdf
--  发布时间:2014/11/26 0:08:00
--  
对于ftp的图片好像还是不行,有没有代码固定最大导出行数,超出行数提醒关闭不导出