主题：编号的自动输入

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

参考

 

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

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

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