Dim bh As String = "JY1058" & dr("单位编号") & "-" & Format(dr("创建日期"),"yy") '取得编号的8位前缀 '附Pyy
Dim max As String
Dim idx As Integer
max = dt.sqlCompute("Max(采购计划文号)","单位编号 like '" & bh & "%' And [_Identify] <> " & dr("_Identify")) '取得该单位的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(bh.length)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
dr("采购计划文号") = bh & Format(idx,"000")
自动编号代码无效,想得到以下的效果 JY1058 + 2位单位编号 + “-” + 2位年份 + 3位顺序号
JY105803-20001
JY105803-20002
JY105803-20003
JY105803-20004
JY105801-20001
JY105801-20002