以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印二维码的问题i  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130107)

--  作者:gareny
--  发布时间:2019/1/13 21:12:00
--  打印二维码的问题i
        Dim bar As prt.RenderBarCode
        bar.BarCodeType = BarCodeEnum.QRCode
        bar.Text = rw("字段1") & "|" & rw("字段2")
        rt.Cells(ii,c).Image = ??
  请问如何将二维码打印到报表中

--  作者:有点甜
--  发布时间:2019/1/13 23:00:00
--  
Dim rg As prt.RenderGraphics
Dim bar As prt.RenderBarCode
bar.BarCodeType = BarCodeEnum.QRCode
bar.Text = rw("字段1") & "|" & rw("字段2")
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rt.Cells(ii,c).RenderObject = rg