打印条形码不能显视出条形码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印条形码不能显视出条形码

共有1849人关注过本帖树形打印复制链接主题：打印条形码不能显视出条形码

binabc2004

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

打印条形码不能显视出条形码 发帖心情

Post By：2017/6/1 15:32:00 [只看该作者]

大家好！

请问我在订单表下款号设置为出现条形码，只出现框架没有出现条形码内容，不知道那里出错，请各位老师帮忙看看，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试表.rar

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 16:00:00 [只看该作者]

buildDetail事件，写代码

If e.Book.TempLate = "计价表" Then
    If e.region = "订单表" 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")
        Else '否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Code39
            Bar.Code = e.DataRow("款号")
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
        End If
    End If
End If