以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于自动生成二维码的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85542)
--  作者：阿标
--  发布时间：2016/5/27 18:31:00
--  关于自动生成二维码的问题
请教下各位，我有一个表格， 想用  列1 列2 列3   的信息加起来生成 列4， 然后用列4的 文字，自动生成二维码，并保存二维码图片。 这个要怎么能实现呢？
[此贴子已经被作者于2016/5/27 18:31:28编辑过]
--  作者：阿标
--  发布时间：2016/5/27 18:55:00
--  
比如   列1 是工种， 列2 是姓名，列3 是身份证号码。   这三个都输进去后，自动生成列4  是  工种+姓名+身份证号码   的字符。 然后用这个列4的字符 生成二维码图片并保存。

要怎么实现呢，在窗框设计添加个按钮吗？
--  作者：阿标
--  发布时间：2016/5/27 20:01:00
--  
合并列4 已经用 表达式可以实现。  就是列4的数据生成二维码 是不是需要在窗框设置里面，还是直接在表属性里面可以生成？
--  作者：Hyphen
--  发布时间：2016/5/28 8:47:00
--  
需要用代码处理：http://www.foxtable.com/help/topics/2092.htm
--  作者：阿标
--  发布时间：2016/5/28 10:00:00
--  
第一个代码生成的，帮助文件里面是输入一段字符，然后根据那段字符生成一对一的代码。我现在是想要活动的，比如 一列都 自动生成
--  作者：阿标
--  发布时间：2016/5/28 10:30:00
--  
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "AAA"
Bar.BarRatio = 0.3
Bar.BarHeight = 0
Bar.DisplayChecksum = False
Bar.DisplayStartStopChar = False
Bar.SaveImage("D:\\data\\" & r("序号") & ".jpg",600) \'


我这个命名的代码，是什么地方出错了呢， 文件命名的地方不让我保存
--  作者：Hyphen
--  发布时间：2016/5/28 10:36:00
--  
For Each r As Row In Tables("表A")
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = r("第一列") &  r("第二列")
    Bar.BarRatio = 0.3
    Bar.BarHeight = 0
    Bar.DisplayChecksum = False
    Bar.DisplayStartStopChar = False
    Bar.SaveImage("D:\\data\\" & r("序号") & ".jpg",600) \'
Next