有下面一段代码：
If e.DataCol.Name = "排产日期" Then
If e.DataRow.IsNull("排产日期") Then
e.DataRow("排产单号") = Nothing
Else
Dim d As Date = e.DataRow("排产日期")
Dim bh As String = "P" & Format(d,"yy-MM") & "" '生成编号的前缀
e.DataRow.Save
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "排产单号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.sqlCompute("Max(排产单号)",flt) '取得该月的相同排产单号的最大排产单号
If max > "" Then '如果存在最大排产单号
idx = CInt(max.Substring(bh.Length,2)) + 1 '获得最大排产单号的后两位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("排产单号") = bh & Format(idx,"00")
e.DataRow.Save
End If
End If
代码编号规则如下：
比如日期是2020-08-XX，那么8月份的排产单号是P20-08-01,02,03...
比如日期是2020-09-XX，那么9月份的排产单号是P20-09-01,02,03...
现在有个问题， 就是排产日期一旦修改，那么排产单号就发生了变化？
比如排产单号是P20-0901, 一旦修改日期，排产单号就更改为P20-0902， 再修改一下日期，就更改为P20-0903
问题1，如何保证编号后面的顺序号一旦生成就不变化呢？
问题2，如果删除P20-0901, 再次添加，号码还是P20-0901， 而不是更改为P20-0902呢？
加好友 
发短信
Post By：2020/9/14 11:23:00 [只看该作者]
