Foxtable(狐表)用户栏目专家坐堂 → 如何不显示导出ftp图片的错误


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

主题:如何不显示导出ftp图片的错误

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


加好友 发短信
等级:幼狐 帖子:154 积分:2378 威望:0 精华:0 注册:2012/9/4 10:59:00
如何不显示导出ftp图片的错误  发帖心情 Post By:2014/11/25 14:18:00 [只看该作者]

各位老师,

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

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


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

FileExists 先判断一下


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/11/25 14:31:00 [只看该作者]

设置的根目录可能错了。
http://www.foxtable.com/help/topics/2379.htm

[此贴子已经被作者于2014-11-25 14:31:45编辑过]

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


加好友 发短信
等级:幼狐 帖子:154 积分:2378 威望:0 精华:0 注册:2012/9/4 10:59:00
  发帖心情 Post By:2014/11/25 15:57:00 [只看该作者]

解决不了,还是请老师帮忙,比如附件中有记录20多条,每次excel报表最多只能导出10条记录(没有图片的不导出) ,该怎么写代码

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


加好友 发短信
等级:幼狐 帖子:154 积分:2378 威望:0 精华:0 注册:2012/9/4 10:59:00
  发帖心情 Post By:2014/11/25 15:58:00 [只看该作者]

好像附件没贴成功,重传一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:限制导出记录数.rar


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


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

 例子发上来,怎样不行?
[此贴子已经被作者于2014-11-25 15:58:55编辑过]

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


加好友 发短信
等级:幼狐 帖子:154 积分:2378 威望:0 精华:0 注册:2012/9/4 10:59:00
  发帖心情 Post By:2014/11/25 18:03:00 [只看该作者]

甜老师,例子重新发了,能用代码控制导出的数据量吗?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:2378 威望:0 精华:0 注册:2012/9/4 10:59:00
  发帖心情 Post By:2014/11/25 23:58:00 [只看该作者]

可以了,谢谢甜老师!

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


加好友 发短信
等级:幼狐 帖子:154 积分:2378 威望:0 精华:0 注册:2012/9/4 10:59:00
  发帖心情 Post By:2014/11/26 0:08:00 [只看该作者]

对于ftp的图片好像还是不行,有没有代码固定最大导出行数,超出行数提醒关闭不导出

 回到顶部
总数 11 1 2 下一页