主题：自动编号

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

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

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

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

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

 

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

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(9,3)) + 1  '获得最大排产序号的后三位顺序号,并加1
                 Else
                     idx = 1  '否则顺序号等于1
                 End  If
                 e.DataRow("排产序号") = pid & Format(idx,"000")
             End If
         End  If
 End  Select

 

不递增， 一直是P15-0501-001， 没有出现P15-0501-002， P15-0501-003， .....

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

 

把9更改为10， 也不递增？？

 Dim pid As String = e.DataRow("排产单号") & "-"

现在是加了& "-" 这个就不递增， 去掉& "-"这个就递增了， 怎么回事？ 

现在OK了， 谢谢BIN老师！

 

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(9,3)) + 1  '获得最大排产序号的后三位顺序号,并加1
                 Else
                     idx = 1  '否则顺序号等于1
                 End  If
                 e.DataRow("排产序号") = pid & "-" & Format(idx,"000")
             End If
         End  If
 End  Select