| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 怎么去掉条形码标识 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191645) |
| -- 作者：朱女士 -- 发布时间：2024/4/28 13:22:00 -- 怎么去掉条形码标识 老师您好！ 我的清单码：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 |
| -- 作者：有点蓝 -- 发布时间：2024/4/28 13:29:00 -- http://www.foxtable.com/webhelp/topics/2092.htm |