Foxtable(狐表)用户栏目专家坐堂 → 图片插入报表问题


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

主题:图片插入报表问题

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
图片插入报表问题  发帖心情 Post By:2018/5/8 13:42:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180508133754.png
图片点击可在新窗口打开查看

 

图片中 质检员 为PictureBox,ImageFile对应的是 图片的存储路径,在数据库中也存储了该值,想把这个图片插入到 excel中,怎么也实现不了,求帮助


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110579 积分:562791 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/8 14:59:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/5/9 8:43:00 [只看该作者]

可能是我理解有问题,系统多人使用,所以想着把图片都存储在制定的服务器上,如果按照甜老师给的方法是不是有些电脑在生成报表时就不会显示图片了。

另外,对于路径 这里我可以直接写服务器的路径吗?,图片名称不一样, 我又该怎么写呢?

[&&c:\Images\myfox.gif, 2, 2]

 

我现在的想法是 在生成报表的时候,在模板中 找对应的字段,找到后 在sheet((j),(i1+1)) 单元格位置 插入图片,可以找到,但不知道怎么插入图片,求赐教,谢谢

Dim Sheet As XLS.Sheet = Book.Sheets(0)
 For j As Integer=0 To 50
    For i1 As Integer= 0 To 20
     If sheet((j),(i1)).Value ="检验员:" Then  ' 找到模板中的质检员字段
            Sheet(j,i1+1).Value = New XLS.Picture(GetImage(pic.ImageFile))
  End If
   Next
Next

报错

无法将类型为“C1.C1Excel.XLPictureShape”的对象强制转换为类型“System.IConvertible”。

[此贴子已经被作者于2018/5/9 9:05:55编辑过]

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


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

生成excel报表之前,把你服务器上图片下载到本地即可,如

 

http://www.foxtable.com/webhelp/scr/1402.htm

 

http://www.foxtable.com/webhelp/scr/1410.htm

 


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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/5/9 11:10:00 [只看该作者]

模板中 显示图片图片的位置不是固定的,

 book.AddDataTable("质检报告主表","pk","S elect * from 质检报告主表 where 编号= '"& bh.text &"'") '添加父表
book.AddDataTable("质检报告附表","pk","S elect * from 质检报告附表 where 编号= '"& bh.text &"'") '添加子表
book.AddRelation("质检报告主表","编号","质检报告附表","编号") '建立关联
Relations.Add("关联1",DataTables("质检报告主表").DataCols("编号"),DataTables("质检报告附表").DataCols("编号"))
Dim Sheet As XLS.Sheet = Book.Sheets(0)
 For j As Integer=0 To 50
    For i1 As Integer= 0 To 20
     If sheet((j),(i1)).Value ="检验员:" Then  ' 找到模板中的质检员字段
 
          'sheet((j),(i1+1)).Value = New XLS.Picture(GetImage("c:\111.jpg")) 
 Sheet(10,2).Value = New XLS.Picture(GetImage("c:\111.jpg"))
 
            End If
   Next
Next
 
Book.Build() '生成细节区

用'sheet((j),(i1+1)).Value 系统有报错, Sheet(10,2).Value 不报错,但是 生成的报表没有图片。

我单独执行 Sheet(10,2).Value = New XLS.Picture(GetImage("c:\111.jpg")) 图片可以显示


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


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

1、如果是ftp或者http网络上的图片,先下载啊;

 

2、下载的时候,可以指定下载后的名字的啊,那不就固定名字了?


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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/5/9 16:28:00 [只看该作者]

谢谢

 回到顶部