主题：窗口中的条码保存问题

参考代码

Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Dim r As Row = Tables("表A").current
bar.Code = r("第一列")
Dim name As String = "d:\test\" & r("第一列") & ".jpg"
bar.SaveImage(name)
r("第五列") = name