Foxtable(狐表)用户栏目专家坐堂 → 编号的自动输入


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

主题:编号的自动输入

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
编号的自动输入  发帖心情 Post By:2019/4/23 15:02:00 [只看该作者]

老师您好,我这里有产品编号格式为012019030412345,后五位数是需要累加。入库时为了方便(一箱机器为六台)包装箱上标为012019030412345-12351。请问怎样在入库窗口上输入起始编号012019030412345和截至编号12351,实现六台机器编号的自动输入?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190423145712.png
图片点击可在新窗口打开查看


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


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

参考

 

Dim s1 As String = "012019030412345"
Dim s2 As String = "12351"
Dim n As Integer = right(s1, s2.length)
Dim s As String = left(s1, s1.length-s2.length)
For i As Integer = n To s2
    msgbox(s & Format(i, "".PadLeft( s2.length,"0")))
Next


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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2019/4/24 13:36:00 [只看该作者]

老师您好!
编码如此修改
Dim s1 As String = e.Form.controls("TextBox1").value
Dim s2 As String = e.Form.controls("TextBox2").value
Dim n As Integer = right(s1, s2.length)
Dim s As String = left(s1, s1.length-s2.length)
For i As Integer = n To s2
    Tables("发货记录").Current("产品批号") = (s & Format(i, "".PadLeft( s2.length,"0")))
Next
e.Form.controls("TextBox1").value=012019030412345
e.Form.controls("TextBox2").value=12351
编码执行后产品批号栏只有一个012019030412351
请问?如何自动记录六个编号?

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


加好友 发短信
等级:八尾狐 帖子:2034 积分:13016 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2019/4/24 14:09:00 [只看该作者]

For i As Integer = n To s2
    Tables("发货记录").AddNew
    Tables("发货记录").Current("产品批号") = (s & Format(i, "".PadLeft( s2.length,"0")))
Next

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


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

Dim s1 As String = e.Form.controls("TextBox1").value
Dim s2 As String = e.Form.controls("TextBox2").value
Dim n As Integer = right(s1, s2.length)
Dim s As String = left(s1, s1.length-s2.length)
For i As Integer = n To s2
    Dim nr = Tables("发货记录").AddNew
    nr("产品批号") = (s & Format(i, "".PadLeft( s2.length,"0")))
Next


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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2019/4/25 16:36:00 [只看该作者]

谢谢两位老师,问题解决了。


 回到顶部