- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]预览报表照片不显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131962)
-- 发布时间：2019/3/10 14:28:00
-- [求助]预览报表照片不显示
黄色代码有错?预览报表照片不显示。其中登记照片列为图片类型，远程文件。
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编辑过]
-- 发布时间：2019/3/10 16:26:00
--
先下载图片到本地，才能用getimage的。
http://www.foxtable.com/webhelp/scr/1410.htm