Foxtable(狐表)用户栏目专家坐堂 → 条形码


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

主题:条形码

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
条形码  发帖心情 Post By:2024/10/22 12:06:00 [显示全部帖子]

老师您好!
   我有一个车间扫码模块,我在数据表中生成了条形码,没有*号,而经过扫码枪扫码后两边,出现了“*”,怎么能取消呢?谢谢指教!
  我的生成条码的代码如下:

Select Case e.DataCol.Name 
    Case "清单条码编码", "条形码"
        If e.DataRow.IsNull("清单条码编码") Then
            e.DataRow("条形码") = Nothing
        Else
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Code39
            Bar.Code = e.DataRow("清单条码编码")
            Bar.BarWidth = 0.6
            Bar.BarHeight =25
            Bar.DisplayChecksum = False
            Bar.DisplayStartStopChar = False
            Bar.AddCheckSum = False
            
            Bar.SaveImage(projectpath & "Attachments\" & e.DataRow("清单条码编码") & ".jpg")
            e.DataRow("条形码") = e.DataRow("清单条码编码") & ".jpg"
        End If
        If e.DataRow.IsNull("清单条码编码")=False Then
            Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Dim fl As String = ProjectPath & "Reports\" & dr("清单条码编码") & ".xls"
            
            Book.Build() '生成细节区
            Book.Save(fl)
            
            ''            Dim Proc As New Process n
            ''            Proc.File = fl
            ''            Proc.Start()
        End If 
End Select



 回到顶部