-- 作者:青丘狐
-- 发布时间:2020/10/30 15:16:00
--
Dim max As String = e.DataTable.compute("max(货物编号)") Dim idx As Integer If max > "" Then \'如果存在最大编号 idx = CInt(max.Substring(2)) + 1 \'获得最大编号的后三位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("货物编号") ="HW" & Format(idx,"000")
开始表述错了 序号不能连续 到10 就终止了 这样可以了 序号可以到1000
|