Foxtable(狐表)用户栏目专家坐堂 → getImage与SQlLoadImage的转换写法


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

主题:getImage与SQlLoadImage的转换写法

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
getImage与SQlLoadImage的转换写法  发帖心情 Post By:2021/1/7 14:07:00 [只看该作者]

getImage与SQlLoadImage的转换写法
第一个用于非二进制保存的图片  第二个用于二进制保存的图片

专业报表代码:(可以实现姓名为女的所有员工的照片专业报表生成,有没有办法把红色部分的代码弄成二进制的写法呢?)
Dim doc As New Printdoc
Dim rx As prt.RenderText
Dim rt As prt.RenderTable
rt = New prt.RenderTable
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Style.Borders.Bottom = New prt.LineDef(0.3,Color.LightGray)
rt.CellStyle.Spacing.All = 1
rt.Cols.Count = 1
rt.Rows.Count = 1
With Tables("员工")
    Tables("员工").Filter="性别='女'"
    For r As Integer = 0 To .Rows.Count - 1 '遍历关联表每一行     
        rt.Cells(r+1,0).Image = getImage(.rows(r)("照片"))
    Next
End With
doc.Body.Children.Add(rt)
doc.Preview

想弄成如下格式的  怎么变通实现操作呢?
        Dim rm As New prt.RenderImage
        rm.Image = r.SQlLoadImage(.rows(r)("附件"))   ‘这个写法提示SQlLoadImage错误’
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
        rm.Style.ImageAlign.StretchHorz = False
        rm.Style.ImageAlign.StretchVert = False
        rt.Cells(r+1,0).RenderObject = rm

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/7 14:21:00 [只看该作者]

rt.Cells(r+1,0).Image = getImage(.rows(r).datarow.SQlLoadImage("附件"))

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)rt.Cells(r+1,0).Image = getImage(....  发帖心情 Post By:2021/1/7 14:28:00 [只看该作者]

运行报错  如图:

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


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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/7 14:42:00 [只看该作者]

rt.Cells(r+1,0).Image = .rows(r).datarow.SQlLoadImage("附件")

 回到顶部