主题：自动编号

不会递增说明没找到max = e.DataTable.Compute("Max(排产序号)","排产单号 = '" & pid  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该排产单号的最大排产序号  idx = CInt(max.Substring(10,3)) + 1  e.DataRow("排产序号") = pid & "-0501-" & Format(idx,"000")

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， .....

不会递增说明没找到max = e.DataTable.Compute("Max(排产序号)","排产单号 = '" & pid  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该排产单号的最大排产序号

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

 

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

不是这个的问题看13楼.搞不定就上例子

 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