Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:条形码

1楼
朱女士 发表于: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


2楼
有点蓝 发表于:2024/10/22 13:34:00
应该是扫描枪设置的问题吧
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02051 s, 2 queries.