以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请帮二维码生成需要解决的两个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96859)

--  作者:fytea
--  发布时间:2017/3/1 10:37:00
--  请帮二维码生成需要解决的两个问题

请帮二维码生成需要解决的两个问题

1.窗口中的“批量生成二维码”按钮,需要增加功能:当表“现有单位二维码”已存在,禁止后面对应的“新生成二维码”生成。
2.批量打印二维码时,excel模板希望:“新生成二维码”为空时,打印“现有单位二维码”。我用的这个公式<iif([新生成二维码]="",[&现有单位二维码&0,,25,3,120,120])>错在什么地方?先谢了!!!
实例如下

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:二维码批量生成器.rar


--  作者:有点色
--  发布时间:2017/3/1 11:30:00
--  

你可以把现有的二维码赋值给新的二维码列,这样两个问题一起解决

 

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("二维信息表码").Rows
    If r.IsNull("现有单位二维码") = False Then
        r("新生成二维码") = r("现有单位二维码")
    Else
        bar.Code = r("生成二维码信息")
        Bar.QuietZoneWidth = 2
        Bar.SaveImage(ProjectPath & "attachments\\" & r("单位编号") & ".bmp")
        r("新生成二维码") = r("单位编号") & ".bmp"
    End If
Next


--  作者:有点色
--  发布时间:2017/3/1 11:50:00
--  

如果要区分,也可以。

 

1、

 

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("二维信息表码").Rows
    If r.IsNull("现有单位二维码") = False Then
        r("新生成二维码") = Nothing
    Else
        bar.Code = r("生成二维码信息")
        Bar.QuietZoneWidth = 2
        Bar.SaveImage(ProjectPath & "attachments\\" & r("单位编号") & ".bmp")
        r("新生成二维码") = r("单位编号") & ".bmp"
    End If
Next

 

2、

 

[<*"&" & iif([现有单位二维码]>"", "现有单位二维码", "新生成二维码") & "&0,25,3,120,120"*>]

 


--  作者:fytea
--  发布时间:2017/3/1 12:10:00
--  

谢谢色老师,

思路决定高下。

把现有的二维码赋值给新的二维码列,这样两个问题一起解决,高明

 

顺便问一下:我的开发板key掉了,能不能补?

[此贴子已经被作者于2017/3/1 12:13:28编辑过]

--  作者:有点色
--  发布时间:2017/3/1 12:59:00
--  
可以掉了,只能重新买的。