二维码被表格遮住了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二维码被表格遮住了

共有2902人关注过本帖树形打印复制链接主题：二维码被表格遮住了

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

二维码被表格遮住了 发帖心情

Post By：2019/2/12 14:56:00 [只看该作者]

Dim Bar As New BarCodeBuilder

Dim img As new prt.RenderImage

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = "081003" & "|" & r("客户物料编号") & "|" & r("每箱数量") & "|" & r("批次号") & "0600"

Bar.QuietZoneWidth = 2

Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H

Bar.QRCodeModuleSize = 0.57

img.Image = bar.GetImage

img.x = -10

img.y = 67

ra.Children.Add(img)

Doc.Body.ChildRen.Add(ra)

上面一段代码里面，如果img.x的值设置正确的话，二维码可以到达正确的位置，但是会被表格遮住，也就是说二维码看不见了。请教要怎么解决？谢谢。（我设计了一个表格，在表格里面要打印二维码）

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/12 15:12:00 [只看该作者]

方法一：先添加表格，再添加二维码，如

Doc.Body.ChildRen.Add(表格)

Doc.Body.ChildRen.Add(二维码)

方法二：如果你要在表格里面插入图片，直接插入即可，如

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

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2019/2/12 16:40:00 [只看该作者]

ra = rt.cells(9,6).area

ra.Stacking = prt.StackingRulesEnum.BlockLeftToRight '排列方式为从左到右

Dim Bar As New BarCodeBuilder

Dim img As new prt.RenderImage

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = "081003" & "|" & r("客户物料编号") & "|" & r("每箱数量") & "|" & r("批次号") & "0600"

Bar.QuietZoneWidth = 2

Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H

Bar.QRCodeModuleSize = 0.57

img.Image = bar.GetImage

img.x = 30

img.y = 30

ra.Children.Add(img)

我改成上面那样，但是运行结果是看不到二维码图案了。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/12 16:44:00 [只看该作者]

参考

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Dim ra = rt.cells(9,6).area
ra.Stacking = prt.StackingRulesEnum.BlockLeftToRight '排列方式为从左到右
Dim Bar As New BarCodeBuilder
Dim img As new prt.RenderImage
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123"
Bar.QuietZoneWidth = 2
Bar.QRCodeErrorCorrectionLevel = Barpro.QRCodeErrorCorrectionLevel.H
Bar.QRCodeModuleSize = 0.57
img.Image = bar.GetImage
ra.Children.Add(img)
Doc.Preview() '预览报表

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2019/2/13 13:29:00 [只看该作者]

应该是 img.x = 30 和 img.y = 30 的问题，我去掉它们，就没事了。谢谢。

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

主题：二维码被表格遮住了