- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]编号问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15611)
-- 发布时间：2012/1/3 0:14:00
-- [求助]编号问题
我要生成一个编号，具体是单位代码+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
[此贴子已经被作者于2012-1-3 0:17:51编辑过]
-- 发布时间：2012/1/3 0:16:00
--
怎么我明明是分段的，帖子发出来以后都连在一起了？
-- 发布时间：2012/1/3 8:52:00
--
提示是什么?