主题：[求助]编号问题

我要生成一个编号，具体是单位代码+2位数字，单位代码为字母，字母数2-5位都有，同一个单位每新增一行为一个新的编号， 如 AKM-01 AKM-02 SXDZ-01 SXDZ-02 SXDZ-03 …… 我写了如下的代码，提示出错 If e.DataCol.Name = "单位代码" Then Dim dr,dr1 As DataRow Dim n As Integer dr = e.DataRow If dr.IsNull("单位代码") Then dr("编号") = Nothing Else dr1 =e.DataTable.Find("[_Identify]< " & dr ("_Identify") & " And 单位代码 = '" & dr("单位代码") & "'","编号 Desc") If dr1 IsNot Nothing Then n = CInt(dr1("编号").substring(6))+1 Else n=1 End If dr("编号") =dr("单位代码") & format(n,"00") End If End If 因为代码连在一起了，再发个截图，清楚些
此主题相关图片如下：截图01.png

怎么我明明是分段的，帖子发出来以后都连在一起了？