以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动编号代码如何编写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137834)

--  作者:gaonuavao
--  发布时间:2019/7/16 23:17:00
--  [求助]自动编号代码如何编写

老师您好!帮我看看下面代码如何写

 

 

在 库存总表 中新插入的一行
"捆包号"列自动输入编号
编号是下面一行的编号+1
编号是固定五位数

 

 

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

 

 


--  作者:有点蓝
--  发布时间:2019/7/16 23:24:00
--  

DataRowAdding事件


Dim v As String = e.DataTable.Compute("max(捆包号)")
e.DataRow("捆包号") = Format(val(v)+1,"00000")

--  作者:gaonuavao
--  发布时间:2019/7/16 23:24:00
--  
非常感谢,这么晚这么及时回复,谢谢老师
--  作者:evolymft
--  发布时间:2019/12/24 13:16:00
--  
请教老师:二楼的代码生成的编号全是100,是什么原因? 谢谢
--  作者:有点蓝
--  发布时间:2019/12/24 13:47:00
--  
编号统一前面补0,补足5位字符。
--  作者:evolymft
--  发布时间:2019/12/24 21:23:00
--  
请老师帮忙指点一下,谢谢。
--  作者:有点蓝
--  发布时间:2019/12/24 22:04:00
--  
看1楼截图的包号呀,使用00099这种编号,不要使用99这种编号。还是不懂的请把项目上传说明