主题：条形码生成

我对条形码的基本知识还没什么概念，如何把数据表里每行的信息形成一个条形码？

 

关键是你要在那里输出条码？

 

http://www.foxtable.com/webhelp/scr/1949.htm

 

http://www.foxtable.com/webhelp/scr/2093.htm

 

我考虑设一列“条形码”，将每一行的有关数据形成一个条形码，存在“条形码”列，随时提取打印。一是这一列的属性怎么设？二是如何用本行的数据生成条形码内容？三是把代码写在哪里？

不需要设置【条形码】列。你打印的时候，再合成，如2楼。

 

或者，如 http://www.foxtable.com/webhelp/scr/2338.htm

 

我非常的外行，对条形码的知识还一点儿不懂，看使用指南也看不懂。我要实现的是：将数据表中每一行生成一个word报表，形成一个二维码，二维码的内容就是报表内容，请简述一下基本操作。

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("表A").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)
Next
Doc.Preview()

我抄了这个代码，通过窗口按钮形成了二维码，显示的是第一列的内容，不知道怎么样显示一张word报表的内容

参考

 

http://www.foxtable.com/webhelp/scr/2890.htm

 

我做了一个产品库，第一列是品名，第二列是编号，第三列是制作者，第四列是生产日期，第五列是产品图片。我想把每个产品的这些信息形成一个条形码。请按步骤指教基本操作，尽量不要说过多的专业术语。

bar.Code = r("第一列")

 

改成

 

bar.Code = r("第一列") & "," & r("第二列") & "," & r("第三列")

谢谢！文字内容都能显示，只是照片无法显示，不知道能不能直接实现，或者把这些信息通过模板形成一个文本或PDF文件显示也行。