- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助提取生成的条码（已解决） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8099)
-- 发布时间：2010/9/5 19:27:00
-- 求助提取生成的条码（已解决）
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"，请问怎样提取生成后的正确条码
[此贴子已经被作者于2010-9-6 17:19:55编辑过]
-- 发布时间：2010/9/5 21:40:00
--
啥意思，没看明白。
-- 发布时间：2010/9/6 9:17:00
--
比方：新建一张表，表名：表A
第一列，第一行内容手工录入：691269123456
第二列，第二行内容用代码写自动录入：6912691234562 这里是用代码提取生成后的正确条码（Ean13），就是请问这里的代码怎么写
-- 发布时间：2010/9/6 9:24:00
--
|
比方：新建一张表，表名：表A 第一列，第一行内容手工录入：691269123456 第二列，第一行内容用代码写自动录入：6912691234562 这里是用代码提取生成后的正确条码（Ean13），就是请问这里的代码怎么写 |
-- 发布时间：2010/9/6 9:24:00
--
这个没有办法，校验码是如何加入的，我并不清楚。
你可以关闭校验码的。
-- 发布时间：2010/9/6 10:13:00
--
这个问题，老大有空时候麻烦你研究解决一下！谢谢
我们使用进销存，经常建立新产品，希望能够自动建立新条码，自动判断此条码是否重新，会很非常方便
-- 发布时间：2010/9/6 10:34:00
--
校验码本来就可有可无的，真正的条码就是你指定的条码内容。
-- 发布时间：2010/9/6 15:32:00
--
网上查了一下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
-- 发布时间：2010/9/6 15:33:00
--
呵呵，这下楼主可以自己写代码生成了吧。
-- 发布时间：2010/9/6 17:20:00
--
谢谢，我已写代码解决了