以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表里面的二进制照片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123094)
--  作者：susu312
--  发布时间：2018/8/7 17:59:00
--  报表里面的二进制照片
老师，您好，我报表里面要显示照片，点击按钮就生成报表，那如何让报表同时把二进制格式的照片也显示出来？
--  作者：有点甜
--  发布时间：2018/8/7 18:10:00
--  

1、必须先把照片读取出来生成xxx.jpg文件；

 

2、模板这样做 http://www.foxtable.com/webhelp/scr/2294.htm

 
--  作者：susu312
--  发布时间：2018/8/7 18:23:00
--  
以下是引用有点甜在2018/8/7 18:10:00的发言：

1、必须先把照片读取出来生成xxx.jpg文件；

 

2、模板这样做 http://www.foxtable.com/webhelp/scr/2294.htm

 

 

读取生成JPG文件这一步咋做啊
--  作者：有点蓝
--  发布时间：2018/8/7 20:03:00
--  
参考：http://www.foxtable.com/webhelp/scr/2952.htm
--  作者：susu312
--  发布时间：2018/8/8 8:58:00
--  
以下是引用susu312在2018/8/7 18:23:00的发言：

 

读取生成JPG文件这一步咋做啊

 

照片已经提取出来了：

If Tables("person").Current Is Nothing Then
     Return
End If
Dim dr As DataRow = Tables("person").Current.DataRow
Dim fl As String =   "C:\\Users\\sujia\\Documents\\Foxtable项目\\retireMg\\" &  dr("_Identify") &  ".JPG"
If dr.SQLLoadFile("photo",fl) Then  \'如果提取文件成功
    Dim Proc As New Process  \'打开文件
    Proc.File = fl
    \'Proc.Start()
Else
    Messagebox.Show("照片提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End  If

但是在专业报表里面引用我不会，请老师指导一下：

 

rt.Cells(0,4).Image =[<*"&&" & [_Identify] & ".JPG"*>]

 

上面是我自己写的，报错了
--  作者：有点甜
--  发布时间：2018/8/8 9:47:00
--  

 

rt.Cells(0,4).Image = getimage("C:\\Users\\sujia\\Documents\\Foxtable项目\\retireMg\\" &  dr("_Identify") &  ".JPG")