以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有关编号的问题求助！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43711)
--  作者：myzzip
--  发布时间：2013/12/13 10:58:00
--  有关编号的问题求助！！！

ls-20131213-0030 这是提交前文本框里面的零售单号

经过下面的代码编译后

 

Dim rw As DataRow
rw = DataTables("零售单号").AddNew()
rw("日期") = Date.Today
Dim strs As String() = forms("销售录入").controls("TextBox4").text.split("-")
forms("销售录入").controls("TextBox4").text = strs(0) & "-" & strs(1) & "-" & val(strs(2)+1)
DataTables("零售单号").save()

 

零售单号变成这样啦 ls-20131213-31  我想要的是这个样子的 ls-20131213-0031 怎么解决这个问题？
--  作者：Bin
--  发布时间：2013/12/13 11:01:00
--  
format 一下 

forms("销售录入").controls("TextBox4").text = strs(0) & "-" & strs(1) & "-" & format(val(strs(2)+1),"0000")
--  作者：myzzip
--  发布时间：2013/12/13 11:08:00
--  
好的，非常感谢！！！