以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  二维码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139641)
--  作者：18631154510
--  发布时间：2019/8/18 9:58:00
--  二维码

下面批量形成二维码的代码，怎么改成只生成选定行的二维码？

Dim  doc As  New   PrintDoc
 Dim  rg As  prt.RenderGraphics
 Dim  Bar As  New   BarCodeBuilder
 Bar.Symbology =   Barpro.Symbology.QRCode
 Doc.Stacking =  prt.StackingRulesEnum.InlineLeftToRight
 For Each  r As  Row In Tables("档案").Rows
      bar.Code =  r ("编号") & "," & r("作者") & "," & r("制作日期") & "," & r("说明")  & ","
      rg =  new  prt.RenderGraphics
      bar.DrawOnCanvas(rg.Graphics,0,0,1)
      rg.Style.Spacing.All =  3
      Doc.Body.Children.Add(rg)
 Next
 Doc.Preview()
--  作者：y2287958
--  发布时间：2019/8/18 14:46:00
--  
Tables("档案").Current
--  作者：有点蓝
--  发布时间：2019/8/18 20:30:00
--  
怎么选定行的？