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