主题：求助提取生成的条码（已解决）

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Ean13
Bar.Code = "691269123456"
Bar.QuietZoneWidth = 2
Bar.CodeAlignment = Barpro.Alignment.AboveCenter
Bar.TextAlignment = Barpro.Alignment.BelowCenter
Bar.SaveImage("文件名")
需要将"691269123456"，生成后的正确条码"6912691234562"，请问怎样提取生成后的正确条码

啥意思，没看明白。

比方：新建一张表，表名：表A

第一列，第一行内容手工录入：691269123456

第二列，第二行内容用代码写自动录入：6912691234562    这里是用代码提取生成后的正确条码（Ean13），就是请问这里的代码怎么写

 

 

比方：新建一张表，表名：表A 第一列，第一行内容手工录入：691269123456 第二列，第一行内容用代码写自动录入：6912691234562    这里是用代码提取生成后的正确条码（Ean13），就是请问这里的代码怎么写

这个没有办法，校验码是如何加入的，我并不清楚。

你可以关闭校验码的。

这个问题，老大有空时候麻烦你研究解决一下！谢谢

 

我们使用进销存，经常建立新产品，希望能够自动建立新条码，自动判断此条码是否重新，会很非常方便

校验码本来就可有可无的，真正的条码就是你指定的条码内容。

网上查了一下EAN13的校验码规则：

比如你的：691269123456

 

1、把奇数位的数字加起来，除了最后一位校验码，这里是 6＋1＋6＋1＋3＋5＝22 （结果为A）
2、把偶数位的数字加起来，这里是 9＋2＋9＋2＋4＋6＝32    （结果为B）
3、A＋3×B＝118，取个位数 8
4、10－8 ＝2
   

所以校验位是2

 

呵呵，这下楼主可以自己写代码生成了吧。

 

谢谢，我已写代码解决了