参考：
http://www.foxtable.com/webhelp/topics/2717.htm
大概这样
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rm As prt.RenderImage() '定义一个图片对象
Dim dr1 As DataRow = DataTables("MakeSchedule").Find("[WorkNo] = '" & Tables("Schedule").Current("WorkNo") & "'")
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.CellStyle.Spacing.All = 1 '内容距离网格线1毫米
rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) '将表格的颜色设为深灰色
rt.Rows.Count = 2 '设置行数
rt.Cols.Count = 4 '设置列数
rt.Height = 80 '设置表格的高度
Dim fls As List(of String) = dr1.lines("Photos")
for i as integer = 0 to fls.count - 1
Dim pth As String = ProjectPath & "Attachments\产品图档\" & fls(i)
rm = new prt.RenderImage()
rm.Image = GetImage(pth) '请改为实际的图标名称和路径
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
rm.Style.ImageAlign.StretchHorz = False '禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = False '禁止垂直方向扩展图片
rt.Cells(0, i).RenderObject = rm
next
加好友 
发短信
Post By：2023/3/25 15:15:00 [显示全部帖子]
