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

老师您好！

我的清单码：202404270001，可是变成条形码后“*202404270001J*”,怎么去掉两边的标识符？谢谢！

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.3

Bar.BarHeight = 8

'Dim 路径

Bar.SaveImage(projectpath & "Attachments\" & e.DataRow("清单条码编码") & ".jpg")

e.DataRow("条形码") = e.DataRow("清单条码编码") & ".jpg"

End if

End Select

主题：怎么去掉条形码标识