以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  自动编号代码问题（已经处理）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87349)

--  作者：benwong2013 --  发布时间：2016/7/8 17:44: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 \'如果单据编号前缀不符                 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(2,2)) + 1 \'获得最大编号的后三位顺序号,并加1                 Else                     idx = 1 \'否则顺序号等于1                 End If                 e.DataRow("评分编号") = lb & Format(idx,"00")             End If         End If End Select 因素编号  评分编号 Y01 Y0101 Y01 Y0111 Y01 Y0112 Y01 Y0112 Y01 Y0112 Y02 Y0201 Y02 Y0221 Y02 Y0223 Y02 Y0223 [此贴子已经被作者于2016/7/8 18:19:58编辑过]

--  作者：benwong2013 --  发布时间：2016/7/8 18:20:00 --   已经处理完，自己代码写错了