主题：[求助] 如何截取连续号码的起止号？

狐狸爸爸万岁！万岁！万万岁！

学习了！

原来的代码有漏洞，要改一下

DataTables("产品库存累总").DataRows.clear()
Dim nms As List(of String) = DataTables("产品库存清单").GetValues("产品名称")
For Each nm As String In nms
    Dim drs As List(of DataRow) = DataTables("产品库存清单").Select("产品名称 = '" & nm & "'","包号")
    Dim r As DataRow
    Dim idx As Integer = 0
    For Each dr As DataRow In drs
        Dim rid As Integer = dr("包号").Substring(3,3)
        If  idx = 0 OrElse rid  > idx + 1
            r = DataTables("产品库存累总").addnew
            r("产品名称") = nm
            r("包号起") = dr("包号")
            r("包号止") = dr("包号")
            r("包数") = 1
        Else
            r("包号止") = dr("包号")
            r("包数") = r("包数") + 1
        End If
        idx = rid
    Next
Next

至少有三行代码是多余的，还可以简单点：

DataTables("产品库存累总").DataRows.clear()
Dim nms As List(of String) = DataTables("产品库存清单").GetValues("产品名称")
For Each nm As String In nms
    Dim drs As List(of DataRow) = DataTables("产品库存清单").Select("产品名称 = '" & nm & "'","包号")
    Dim r As DataRow
    Dim idx As Integer = 0
    For Each dr As DataRow In drs
        Dim rid As Integer = dr("包号").Substring(3,3)
        If  idx = 0 OrElse rid  > idx + 1
            r = DataTables("产品库存累总").addnew
            r("产品名称") = nm
            r("包号起") = dr("包号")
        End If
        r("包号止") = dr("包号")
        r("包数") = r("包数") + 1
        idx = rid
    Next
Next

还可以更高效点，不过没什么意思了，这样足够用了。