原范例是论坛上找的，实际应用中发现有些不大方便的地方，如下图

此主题相关图片如下：1.png

图1

此主题相关图片如下：2.png

图2

1、如图1，我设了四个编号段，其中红色、黄色框内的号码段是正常情况下的（从小到大，号码段>=2),图2中也可以看出自动排出来的号码属于正常范围（灰色框）

2、但，图1中，绿色框内的号码段，开始号码比红色、黄色的还要小，在图2中就出现BUG了，只提取出1个号，其后的号码就不对了。

3、图1中，蓝色框的号码段只有1，图2也出现BUG。。

请教一下，如何解决2、3 这两个问题？ 谢谢！

实例如下

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

点击浏览该文件:启用和停止编号.table

DataRowAdded事件

Dim dr As DataRow = e.DataRow
Dim bh As String = e.DataTable.Compute("Max(编号)") + 1
Dim fdr As DataRow
fdr = DataTables("号段管理").Find("开始号段 <= \'" & bh & "\' And 结束号段 >= \'" & bh & "\' And [启用] = True And ([停止] = False Or [停止] Is null)")

If fdr Is Nothing Then
    fdr = DataTables("号段管理").Find("开始号段 >= \'" & bh & "\' And [启用] = True And ([停止] = False Or [停止] Is null)", "开始号段")
    If fdr Is Nothing Then
        msgbox("没有号段了")
        e.DataRow.Delete
        Return
    Else
        dr("编号") = fdr("开始号段")
    End If
Else
    dr("编号") = bh
End If

DataTables("号段管理").ReplaceFor("停止", True, "结束号段 <= \'" & dr("编号") & "\'")

逻辑有问题，编号只能递增，不能回头。

如果要根据号段管理，取完所有编号，就这样写

Dim dr As DataRow = e.DataRow
Dim found As Boolean = False
For Each pdr As DataRow In DataTables("号段管理").Select("[启用] = True And ([停止] = False Or [停止] Is null)", "领用日期")
    For i As Double = pdr("开始号段") To pdr("结束号段")
        If e.DataTable.Find("编号 = \'" & i & "\'") Is Nothing Then
            dr("编号") = i
            found = True
            Exit For
        End If
    Next
    If found Then
        Exit For
    Else
        pdr("停止") = True
    End If
Next
If found = False Then
    e.DataRow.Delete
    msgbox("没有编号了")
End If