以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二维码的生成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183855)
--  作者：朱女士
--  发布时间：2022/11/16 11:42:00
--  二维码的生成
老师您好！
   我想用数据表的2个-3个字段组合生成二维码，我想问的问题是：1、能否用汉字字段生成，2、在代码中怎么组合2个及以上字段。3、我存储文件时文件名，用字段内容存储。我写得代码有问题。请指教，谢谢！带颜色的三句。
    Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Dim fn As String
Dim gx As string
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("工序表").Rows
    bar.Code = r("工序代码")
    rg = New prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)
    gx = r("工序代码")
    fn = "d:\\工序二维码\\mycode &gx.jpg"
    MessageBox.Show(fn)
    Bar.SaveImage("fn")
Next
Doc.Preview()

　
--  作者：有点蓝
--  发布时间：2022/11/16 11:53:00
--  
多个列：bar.Code = r("工序代码") & r("列2") & r("列3")

fn = "d:\\工序二维码\\mycode\\" & gx & ".jpg"
自己学会查看合成的内容：msgbox（fn）