主题：[求助]关于自动编号生成

e.DataRow("签订日期") = Date.Today()

e.DataRow("业务员") = User.Name

e.DataRow("领域") = "A" '领域的默认值定义为A

Dim bh As String = e.DataRow("领域") & Format(e.DataRow("签订日期"),"yyMMdd") '取得编号的7位前缀

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(合同单号)","签订日期 = #" & e.DataRow("签订日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号

If max > "" Then '如果存在最大编号

    idx = CInt(max.Substring(7,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

    idx = 1 '否则顺序号(起始号)等于1(有签订日期,无合同编号时的判断)

End If

e.DataRow("合同单号") = bh & Format(idx,"000")

又遇到自动编号新问题，再次请教：

在DataColChanged事件：

Select Case e.DataCol.Name

    Case "合同单号"

        Dim dr As DataRow = DataTables("报告管理_客服员").Find("合同单号 = '" & e.OldValue & "'")

        If dr Is Nothing Then

            dr = DataTables("报告管理_客服员").AddNew()

            dr("合同单号") = e.DataRow("合同单号")

            Dim max As String

            Dim idx As Integer

            max = DataTables("报告管理_客服员").Compute("Max(编号)","[_Identify] <> " & e.DataRow("_Identify")) '取得最大编号

            If max > "" Then '如果存在最大编号

                idx = CInt(max) + 1 '获得最大编号后加1

            Else

                idx = 200 '否则顺序号(起始号)等于200

            End If

            dr("报告编号") = e.DataRow("场所") & e.DataRow("领域") & Format(idx,"00000")

        Else

            dr("合同单号") = e.DataRow("合同单号")

        End If

End Select

 
此主题相关图片如下：1111.jpg

增加了表达式列[编号]，可以用Max统计该列最大编号，但由于某种操作，是会删除中间部分曾用过的报告编号，如附件所示，删除的BA00210、BA00211两个编号已被删除，但希望能加以判断优先使用曾被删除的编号，再去使用最大编号，请问该怎么实现呢？