- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 编号到10又重新1 开始 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157806)
-- 发布时间：2020/10/29 16:05:00
-- 编号到10又重新1 开始
Dim max As String = e.DataTable.compute("max(货物编号)")
Dim idx As Integer
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(4)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("货物编号") ="HW" & Format(idx,"000")
此主题相关图片如下：hb.png
[此贴子已经被作者于2020/10/30 15:18:46编辑过]
-- 发布时间：2020/10/29 16:08:00
--
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(4)) + 1 \'获得最大编号的后三位顺序号,并加1
if idx > 10 then idx = 1
Else
idx = 1 \'否则顺序号等于1
End If
Else
idx = 1 \'否则顺序号等于1
End If
-- 发布时间：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