主题：老师，帮我看看问题出在哪里，如何处理？

老师，帮我看看问题出在哪里，如何处理？

我做了自动编号，当关联表B首行选定自动编号时，后4位序号从1开始；而当首行选定原有批号输入后第二行再输入自动编号时，后4位序号出错。请您帮我看看，谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

你说的出错时什么意思？

如果关联表B首行批号列从列表项中选用原来批号输入，当第二行采用自动编号输入时，后4位序号不会从1开始

按设计要求，每个编号下数批号都应该从1开始；但我做的这个编号无法实现这个要求，不知问题出在哪里？

是不是我输入的代码没有正确识别编号前缀？该如何处理？

Select e.DataCol.Name
    Case "新单"
        If e.DataCol.Name = "新单" Then
        If e.NewValue = True Then
        If e.DataRow.IsNull("批号") Then
            Dim lb As String = e.DataRow("编号")
            If e.DataRow("批号").StartsWith(lb & "-") = False '如果产品编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(批号)","编号= '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify") & " And 新单 = True") '取得该编号的最大号
                If max > "" Then '如果存在最大号
                    idx = max.IndexOf("-") + 1
                    idx = CInt(max.Substring(idx)) + 1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("批号") = lb & "-" & Format(idx,"0000")
            End If
        End If
      End If
    End If
End Select

谢谢老师！