以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条形码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193856)
--  作者：朱女士
--  发布时间：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
--  作者：有点蓝
--  发布时间：2024/10/22 13:34:00
--  
应该是扫描枪设置的问题吧