- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- getImage与SQlLoadImage的转换写法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159756)
-- 发布时间：2021/1/7 14:07:00
-- getImage与SQlLoadImage的转换写法
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
-- 发布时间：2021/1/7 14:21:00
--
rt.Cells(r+1,0).Image = getImage(.rows(r).datarow.SQlLoadImage("附件"))
-- 发布时间：2021/1/7 14:28:00
-- 回复：（有点蓝）rt.Cells(r+1,0).Image = getImage(....
运行报错 如图：
此主题相关图片如下：1.png
-- 发布时间：2021/1/7 14:42:00
--
rt.Cells(r+1,0).Image = .rows(r).datarow.SQlLoadImage("附件")