以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态识别指定列的数据为条形码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13006)
--  作者：kevin
--  发布时间：2011/9/23 22:50:00
--  动态识别指定列的数据为条形码

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123456"
\'打印条形码
Dim doc As New PrintDoc
Dim rm As New prt.RenderImage
rm.Image = Bar.GetImage(300)
doc.Body.Children.Add(rm)
Doc.Preview()

 

如何让它动态识别表A的第一列、第二列和第三列的信息形成条码？

 
--  作者：程兴刚
--  发布时间：2011/9/23 23:16:00
--  
不知道您说的第一列、第二列、第三列是什么？都是数字吗？而且您指的表A的哪一行？
--  作者：kevin
--  发布时间：2011/9/23 23:20:00
--  

第一列是字符

第二列是数字

第三列也是数字

 

 

当我选择的那一行，输出的条码信息就是选定的行的第一二三列的信息！
--  作者：kevin
--  发布时间：2011/9/23 23:33:00
--  
以下是引用程兴刚在2011-9-23 23:16:00的发言：
不知道您说的第一列、第二列、第三列是什么？都是数字吗？而且您指的表A的哪一行？

第一列是字符

第二列是数字

第三列也是数字

 

 

当我选择的那一行，输出的条码信息就是选定的行的第一二三列的信息！
--  作者：程兴刚
--  发布时间：2011/9/23 23:39:00
--  

Dim r As Row = Tables("表A").Current
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code =r("第一列") & r("第二列") & r("第三列") \'打印条形码
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()

 

注：这三列都必须是数字，输入其它不符合条码规则的字符会报错！
--  作者：kevin
--  发布时间：2011/9/23 23:55:00
--  
以下是引用程兴刚在2011-9-23 23:39:00的发言：

Dim r As Row = Tables("表A").Current
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code =r("第一列") & r("第二列") & r("第三列") \'打印条形码
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()

 

注：这三列都必须是数字，输入其它不符合条码规则的字符会报错！

 

 

我用Dim r As Row = Tables("表B").Current
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
bar.Code =r("第一列") & r("第二列") & r("第三列") \'打印条形码
img = new prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Doc.Preview()

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－打印成二维码

 

如何通过窗口执行这个代码？也就是说，我在窗体中加一个按钮，执行项目中“报表1”的命令

 

 
--  作者：程兴刚
--  发布时间：2011/9/24 0:22:00
--  

这就是打印按钮命令，自己测试一下就知道了！