黄色代码有错?预览报表照片不显示。其中登记照片列为图片类型，远程文件。
Dim doc As New PrintDoc '定义一个报表
Dim CurRow As Row = Tables("主页_Table1").Current
'设置题头部分
Doc.PageSetting.LeftMargin = 15 '设置左边距
Doc.PageSetting.RightMargin = 15 '设置右边距
Doc.PageSetting.TopMargin = 15 '设置上边距
Doc.PageSetting.BottomMargin = 15 '设置下边距
Dim rtt As New prt.RenderTable()
rtt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rtt.Rows.Count = 10
rtt.Cols.Count = 7
rtt.Height = 120
rtt.Cells(0,6).SpanRows = 4
rtt.Cols(6).Width = 36
rtt.Cells(0,0).Text= "姓名"
rtt.Cells(0,1).Text= CurRow("姓名")
rtt.Cells(0,2).Text= "性别"
rtt.Cells(0,3).Text= CurRow("性别")
rtt.Cells(0,4).Text= "出生年月"
rtt.Cells(0,5).Text= CurRow("出生年月")
rtt.Cells(0,6).Image = GetImage(CurRow("登记照片")) ‘代码有错?预览报表照片不显示。其中登记照片列为图片类型，远程文件。
rtt.Style.TextAlignHorz = prt.AlignHorzEnum.center
rtt.Style.TextAlignVert = prt.AlignHorzEnum.center
doc.Body.Children.Add(rtt) '将表格对象入到报表中
Doc.Preview() '预览报表
此主题相关图片如下：图片1.png
[此贴子已经被作者于2019/3/10 14:32:41编辑过]
加好友 
发短信
Post By：2019/3/10 14:28:00 [显示全部帖子]
