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

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

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

edisontsui

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

加好友

发短信

等级：六尾狐帖子：1466 积分：9511 威望：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的值设置正确的话，二维码可以到达正确的位置，但是会被表格遮住，也就是说二维码看不见了。请教要怎么解决？谢谢。（我设计了一个表格，在表格里面要打印二维码）

edisontsui

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

加好友

发短信

等级：六尾狐帖子：1466 积分：9511 威望：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)

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

edisontsui

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

加好友

发短信

等级：六尾狐帖子：1466 积分：9511 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2019/2/13 13:29:00 [显示全部帖子]

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

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

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