- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 生成条形码问题！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130986)
-- 发布时间：2019/2/13 17:28:00
-- 生成条形码问题！
条码类型：Itf14应该是14位数字的，但生成器中只能是13位，14位就空白
如下图：
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
请大侠们帮忙看看原因。
-- 发布时间：2019/2/13 17:44:00
--
第14位是自动生成的，不需要指定。
-- 发布时间：2019/2/13 19:00:00
--
以下是引用有点甜在2019/2/13 17:44:00的发言：
第14位是自动生成的，不需要指定。
那怎么获取完整的条码呢？
-- 发布时间：2019/2/13 22:45:00
--
mark 校验码
Dim s As String = "1234567890123"
Dim sum1 = 0
Dim sum2 = 0
For i As Integer = s.length-1 To 0 Step -2
sum1 += val(s(i))
Next
For i As Integer = s.length-2 To 0 Step -2
sum2 += val(s(i))
Next
Dim c = sum1*3+sum2
Dim jy = 10-c Mod 10
msgbox(jy)
-- 发布时间：2019/2/15 13:07:00
--
非常感谢