以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  生成的二维码如何放入指定的单元格内  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141516)
--  作者：yifan3429
--  发布时间：2019/10/1 16:53:00
--  生成的二维码如何放入指定的单元格内
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rx As New prt.RenderText \'定义一个文本对象
Dim CurRow As Row = Tables("会议记录").Current


\'链接二维码
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code = "会议主题:" & CurRow("会议主题") & vbcrlf &"会议时间:" & CurRow("会议时间") & vbcrlf & "会议地点:" &  CurRow("会议地点")
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.Style.Spacing.All = 10
Doc.Body.Children.Add(rg)

\'..............
rt.Cells(0,0).Text= "二维码"
rt.Cells(0,1).Text = 
\'.....................
Doc.Preview()

帮助里的图片换成二维码
http://www.foxtable.com/webhelp/topics/1238.htm
--  作者：狐狸爸爸
--  发布时间：2019/10/2 8:59:00
--  
RenderGraphics就是一个普通的打印对象，和RenderText是一回事，任何打印对象都可以直接加入单元格中：

http://www.foxtable.com/webhelp/topics/1199.htm