主题：动态识别指定列的数据为条形码

Dim r As Row = Tables("表A").Current
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code =r("第一列") & r("第二列") & r("第三列") '打印条形码
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()

注：这三列都必须是数字，输入其它不符合条码规则的字符会报错！

我用Dim r As Row = Tables("表B").Current
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code =r("第一列") & r("第二列") & r("第三列") '打印条形码
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－打印成二维码

如何通过窗口执行这个代码？也就是说，我在窗体中加一个按钮，执行项目中“报表1”的命令