老师您好！
我的清单码：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
加好友 
发短信
Post By：2024/4/28 13:22:00 [显示全部帖子]
