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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成的条件码会改变

共有2626人关注过本帖树形打印复制链接主题：生成的条件码会改变

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

生成的条件码会改变 发帖心情

Post By：2015/8/4 17:41:00 [只看该作者]

完全按照“CaseStudy目录下的文件：条形码与Excel报表.Table"做的。

右图是根据左图生成的条形码，为什么数据发生改变。

dvubb 此主题相关图片如下：条形码会改变.bmp

[此贴子已经被作者于2015/8/4 17:41:31编辑过]

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2015/8/4 17:42:00 [只看该作者]

If e.Book.TempLate = "工装加工工作卡" Then
    If e.region = ywkt.name 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