以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193380)

--  作者:yuyu060712
--  发布时间:2024/9/9 14:30:00
--  自动编号
Select e.DataCol.Name
     Case "类别"
          If e.DataRow.IsNull("类别") Then
             e.DataRow("工票编号") = Nothing
         Else
             Dim lb As String = e.DataRow("类别") 
             If e.DataRow("工票编号").StartsWith(lb) = False Then \'如果单据编号前缀不符
                Dim max As String
                 Dim idx As Integer
                max = e.DataTable.Compute("Max(工票编号)", "类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(max.length - 5)) + 1  \'获得最大编号的后三位顺序号,并加1
                 Else
                     idx = 1 \'否则顺序号等于1
                 End If
                 e.DataRow("工票编号") = lb & "-" & Format(idx, "00000")
             End If
         End If
End Select
老师,原来的编号里有4位数的,最后一个号,我改为5位了,但是运行代码后出现比如,J24--这种情况,请老师指导下,谢谢



--  作者:cd_tdh
--  发布时间:2024/9/9 14:33:00
--  
 idx = CInt(max.Substring(max.length ,5)) + 1  \'获得最大编号的后三位顺序号,并加1



--  作者:有点蓝
--  发布时间:2024/9/9 15:01:00
--  
编号最后的顺序位数必须统一,要么全部是4位,要么全部是5位。