Foxtable(狐表)用户栏目专家坐堂 → 关于EXCEL打印生成二维码扫码结果错误


  共有3380人关注过本帖树形打印复制链接

主题:关于EXCEL打印生成二维码扫码结果错误

帅哥哟,离线,有人找我吗?
hnguang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:521 积分:4714 威望:0 精华:0 注册:2016/12/17 11:51:00
关于EXCEL打印生成二维码扫码结果错误  发帖心情 Post By:2020/8/14 8:41:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物料二维码打印模板.xls

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物料二维码打印1.xls


If e.Book.TempLate = "物料二维码打印" Then
    If e.region = "P包装条码明细" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("二维码") Then '如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片
            img.Save(ProjectPath & "Images\BarCode.gif")
            img.Save(ProjectPath & "Images\BarCode1.gif")
            
        Else '否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.QRCode
            Dim size As String
            size = e.DataRow("二维码")
            'size += "," & e.DataRow("发料数量")
            Bar.Code = size
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
            Dim idx As Integer = Tables("P包装条码明细").FindRow(e.DataRow)
            If idx > -1 AndAlso idx < Tables("P包装条码明细").Rows.Count
                Dim r As Row = Tables("P包装条码明细").Rows(idx+1)
                Bar = New BarCodeBuilder
                Bar.Symbology = Barpro.Symbology.QRCode
                Dim size1 As String
                size1 = r("二维码")
                'size += "," & e.DataRow("发料数量")
                Bar.Code = size1
                Bar.BarRatio = 0.3
                Bar.BarHeight = 8
                
                bar.SaveImage(ProjectPath & "Images\BarCode1.gif",300)
            End If
        End If
    End If
End If
这是用EXCEL模板生成的二维码,两栏,发现第二栏生成的二维码很多扫出来结果不一样

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/14 8:56:00 [只看该作者]

应该是串行了,上传实例测试一下

 回到顶部