以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  自动编号  (http://foxtable.net/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位。