以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图片插入报表问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118657)

--  作者:aidimeng
--  发布时间:2018/5/8 13:42:00
--  图片插入报表问题


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

 

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


--  作者:有点蓝
--  发布时间:2018/5/8 14:59:00
--  
参考:http://www.foxtable.com/webhelp/scr/1845.htm
--  作者:aidimeng
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间:2018/5/9 9:17:00
--  

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

 

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

 

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

 


--  作者:aidimeng
--  发布时间: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")) 图片可以显示


--  作者:有点甜
--  发布时间:2018/5/9 11:17:00
--  

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

 

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


--  作者:aidimeng
--  发布时间:2018/5/9 16:28:00
--  
谢谢