报表插入图片无效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表插入图片无效

共有1810人关注过本帖树形打印复制链接主题：报表插入图片无效

ljh29206

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1359 积分：12004 威望：0 精华：0 注册：2012/3/5 11:32:00

报表插入图片无效 发帖心情

Post By：2019/3/20 17:04:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表

Dim rt As New prt.RenderTable()

doc.Body.Children.Add(rt)

rt.Style.GridLines.All = New prt.LineDef

rt.Width = "Parent.Width" '对象宽度等于页面宽度

rt.Height = 120 '对象高度等于页面高度

rt.Rows.Count = 2 '设置行数为2行

rt.Cols.Count = 2 '设置列数为2列

If FileSys.FileExists("C:\Users\pcliujianhua\Desktop\sdf.jpg") Then

rt.Cells(1,0).Image = GetImage("C:\Users\pcliujianhua\Desktop\sdf.jpg")

Else

MessageBox.Show(1)

End If

rt.Cells(1,1).text = "21321321" ’能输出

doc.Preview()

指定路径不能输出，路径没有问题，请指点

[此贴子已经被作者于2019/3/20 17:07:21编辑过]

ljh29206

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1359 积分：12004 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2019/3/20 17:39:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表

doc.Body.Children.Add(rt)

rt.Style.GridLines.All = New prt.LineDef

rt.Width = "Parent.Width" '对象宽度等于页面宽度

rt.Height = 120 '对象高度等于页面高度

rt.Rows.Count = 2 '设置行数为3行

rt.Cols.Count = 2 '设置列数为3列

If FileSys.FileExists("C:\Users\pc\Desktop\LCH03.png") Then

rt.Cells(0,0).Image = GetImage("C:\Users\pc\Desktop\LCH03.png")

End If

If FileSys.FileExists("C:\Users\pc\Desktop\LCH02.png") Then

rt.Cells(0,1).Image = GetImage("C:\Users\pc\Desktop\LCH02.png")

End If

If FileSys.FileExists("C:\Users\pc\Desktop\LCH05.png") Then

rt.Cells(1,0).Image = GetImage("C:\Users\pc\Desktop\LCH05.png")

End If

'---------------------------图片

rt.Cells(1,1).text = "21321321" ’能输出

doc.Preview()

甜版我测试结果很奇怪 4个单元格中的3个放置图片进去，连续试几次，发现只能随机输出 2个或者 1 个不能全部输出。

是我电脑问题还是foxtable问题！

ljh29206

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1359 积分：12004 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2019/3/20 17:46:00 [显示全部帖子]

重新打开了就没问题了，比较奇怪！

下一主题 >> << 上一主题

主题：报表插入图片无效