Foxtable(狐表)用户栏目专家坐堂 → 生成条形码问题!


  共有2459人关注过本帖树形打印复制链接

主题:生成条形码问题!

帅哥哟,离线,有人找我吗?
mxko
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3792 威望:0 精华:0 注册:2013/2/20 11:07:00
生成条形码问题!  发帖心情 Post By:2019/2/13 17:28:00 [只看该作者]

条码类型:Itf14应该是14位数字的,但生成器中只能是13位,14位就空白

如下图:


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

请大侠们帮忙看看原因。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/13 17:44:00 [只看该作者]

 

第14位是自动生成的,不需要指定。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
mxko
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3792 威望:0 精华:0 注册:2013/2/20 11:07:00
  发帖心情 Post By:2019/2/13 19:00:00 [只看该作者]

以下是引用有点甜在2019/2/13 17:44:00的发言:

 

第14位是自动生成的,不需要指定。

 

 

那怎么获取完整的条码呢?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部
帅哥哟,离线,有人找我吗?
mxko
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3792 威望:0 精华:0 注册:2013/2/20 11:07:00
  发帖心情 Post By:2019/2/15 13:07:00 [只看该作者]

非常感谢


 回到顶部