批量打印QRcode标签，如何把二维码加入到代码中来？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

不能绑定，参考用法

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

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Dim rg As prt.RenderGraphics

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

For i As Integer = 1 To 10

Dim rt As New prt.RenderTable() '定义一个表格对象

rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型

rt.Width = 50 '表格宽度为50mm

rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm

rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.

rt.Cols(0).Width = 20

rt.cells(0,0).Text = "姓名"

rt.Cells(0,1).Text = "黄财德"

rt.Cells(1,0).Text = "职务"

rt.Cells(1,1).Text = "总经理"

rt.Cells(2,0).Text= "工号"

rt.cells(2,1).Text = "44081996008"

rt.cells(3,0).SpanCols = 2

bar.Code = "44081996008"

rg = new prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics,0,0,1)

rg.Style.Spacing.All = 3

Dim ra = rt.Cells(3,0).Area

ra.Children.Add(rg)

doc.Body.Children.Add(rt) '将表格对象加入到报表中

Doc.Preview() '预览报表

主题：批量打印QRcode标签，如何把二维码加入到代码中来？