主题：[求助]二维码问题

7楼不是已经帮你加入代码了么,你要怎么布局.自己调整一下即可

 加入代码

 

Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCODE
Bar.Code = "123456"
Bar.BarWidth = 0.3
Bar.BarHeight = 8
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.x = 20
rg.y = 30
Doc.Body.Children.Add(rg)

甜老师的正确了，可是怎么把Bar.Code = "123456"  里的123456替换成“企业资质”的相关内容信息，并保存在数据表“企业资质”的“企业二维码”列里？

Bar.Code = Tables("资质证书").Current("承包工程范围")

打出来的二维码太大了，有5cm*5cm那么大，也没有保存在数据表“企业资质”的“企业二维码”列里。

 

1、内容越多，二维码就肯定越大啊；

 

2、没有必要把二维码保存在表里啊

怎么绑定数据表的多列内容？也就是在二维码扫描后能显示数据表的多个列的相关信息。

 

什么意思？控件只能绑定单列