主题：报表怎样显示图片？

我做了一个报表，报表显示的头像是文件名（xxx.jpg），怎样让报表显示图片，而不是文件名？

Dim doc As New PrintDoc '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderImage '定义一个图形队形
Dim Currow As Row
Dim tbl As Table = Tables("老年人生活自理能力评估表")
For i As Integer = tbl.TopRow To tbl.BottomRow
    CurRow = tbl.rows(i)

    Dim rep As New prt.RenderEmpty '定义一个新的空对象
    rep.BreakBefore = prt.BreakEnum.Page '打印前换页
    doc.Body.Children.Add(rep ) '加入到报表中

rx = new prt.RenderText
rx.Text = "糖尿病患者中医健康干预"
rx.x = 72
rx.y = 35
doc.body.Children.Add(rx)
rx.Style.Font = New Font("黑体", 18) '设置字体

rx = new prt.RenderText
rx.Text = "姓名:"
rx.x = 33
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("宋体", 12) '设置字体

rx = new prt.RenderText
rx.Text = CurRow("姓名")
rx.x = 48
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("华文行楷", 14) '设置字体

rx = new prt.RenderText
rx.Text = "年龄"
rx.x = 72
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("宋体", 12) '设置字体

rx = new prt.RenderText
rx.Text = CurRow("年龄")
rx.x = 83
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("华文行楷", 12) '设置字体

rx = new prt.RenderText
rx.Text = "岁"
rx.x = 87
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("华文行楷", 12) '设置字体

rx = new prt.RenderText
rx.Text = "性别"
rx.x = 100
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("宋体", 12) '设置字体

rx = new prt.RenderText
rx.Text = CurRow("性别")
rx.x = 110
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("华文行楷", 12) '设置字体

rx = new prt.RenderText
rx.Text = "编号:"
rx.x = 145
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("宋体", 12) '设置字体

rx = new prt.RenderText
rx.Text = CurRow("村编号")
rx.x = 157
rx.y = 47
doc.body.Children.Add(rx)
rx.Style.Font = New Font("华文行楷", 14) '设置字体

rx = new prt.RenderText
rx.Text = CurRow("头像")
rx.x = 100
rx.y = 80
doc.body.Children.Add(rx)
rx.Style.Font = New Font("华文行楷", 14) '设置字体

Next
Doc.Preview() '预览报表

头像列是图片列

 

插入一个图片对象

 

rm.Image = GetImage(projectPath & "Attachments/" & CurRow("头像")) '设置图片

 

http://www.foxtable.com/webhelp/scr/1182.htm

 

rm = new prt.RenderImage
rm.Width = 40  '设置尺寸
rm.Height = 40
rm.Image = GetImage(projectPath & "Attachments/" & CurRow("画图")) '设置图片
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
doc.body.Children.Add(rm)

 

图片出不来，哪里还有不对的地方？请指教

 rm.Image = GetImage(projectPath & "Attachments/" & CurRow("画图")) '设置图片\\\



看下路径吧

谢谢，我试试