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