- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]单元格里有1张以上图片如何依序打印图片出来 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185919)
-- 发布时间：2023/3/25 14:37:00
-- [求助]单元格里有1张以上图片如何依序打印图片出来
请教老师单元格里有1张以上图片如何依序打印图片出来.谢谢!
此主题相关图片如下：2_page1.png
-- 发布时间：2023/3/25 15:15:00
--
什么报表？execl？专业报表？
-- 发布时间：2023/3/25 16:30:00
--
老师好!是专业报表
\'填入圖片
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rm As New prt.RenderImage() \'定义一个图片对象
Dim dr1 As DataRow = DataTables("MakeSchedule").Find("[WorkNo] = \'" & Tables("Schedule").Current("WorkNo") & "\'")
Dim pth As String = ProjectPath & "Attachments\\产品图档\\" & dr1("Photos")
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 \'禁止垂直方向扩展图片
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
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 \'设置表格的高度
rt.Cells(0, 0).RenderObject = rm \'将单元格内容设置为图片对象rm
-- 发布时间：2023/3/25 17:04:00
--
参考：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
-- 发布时间：2023/3/25 17:33:00
--
谢谢老师!
-- 发布时间：2023/3/25 18:58:00
--
老师好!图片管理器里有2张图片,原来我的代码打印出来是空的,如果只有1张图片就能打印出来.刚刚试试老师的出现以下情形.
此主题相关图片如下：微信图片_20230325184428.jpg
-- 发布时间：2023/3/26 20:04:00
--
Dim rm As prt.RenderImage() \'定义一个图片对象
改为
Dim rm As prt.RenderImage \'定义一个图片对象
-- 发布时间：2023/3/27 16:04:00
--
感谢老师可以了。