主题：自动编号

此主题相关图片如下：qq截图20150515234303.png

http://www.foxtable.com/help/topics/2403.htm

老师， 你们没有回复如何自动生成我需要的编号

看2楼帮助

2楼没有我想要的编号方法

呵呵,说明你没有看

Select e.DataCol.Name
     Case  "排产单号"
          If e.DataRow.IsNull("排产单号") Then
             e.DataRow("排产序号") = Nothing
         Else
             Dim pid As  String = e.DataRow("排产单号")
             If e.DataRow("排产序号").StartsWith(pid) = False  '如果单据排产序号前缀不符
                Dim max  As  String
                 Dim idx  As  Integer
                max = e.DataTable.Compute("Max(排产序号)","排产单号 = '" & pid  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该排产单号的最大排产序号
                If max > ""  Then  '如果存在最大排产序号
                    idx = CInt(max.Substring(3,3)) + 1  '获得最大排产序号的后三位顺序号,并加1
                 Else
                     idx = 1  '否则顺序号等于1
                 End  If
                 e.DataRow("排产序号") = pid & Format(idx,"000")
             End If
         End  If
 End  Select

上面的代码哪个地方有问题呢

 idx = CInt(max.Substring(5,3)) + 1 

e.DataRow("排产序号") = pid & "-" & Format(idx,"000")

此主题相关图片如下：qq截图20150516165228.png

 

怎么会成这样呢， 如果把P15-0501001更改为P15-0501-001如何做呢