Ayuda con Ordenamiento de numeros por bloques

[Totto3]

en una aplicacion Windows Forms desarrollada con VB.NET necesito mostrar en un list box una serie (numerica) de listas de empaque de productos ordenadas por rangos o por bloques, dado que en la serie pueda que no exita algun numero continuo se requiere q se ordenen en rangos por ejemplo tengo un rango que va del 2300 al 2900 pero entre estos no estan el 2553,2554,2555, 2862,2863,2864,2865 y 2899

entonces yo necesito generar los grupos asi:

del 2300 al 2552
del 2556 al 2861
del 2866 al 2898
y 2900

como puedo lograr hacer esto?


gracias por su valios ayuda

[magiaurbana]

Que onda Totto !

Una pregunta para poderte ayudar estos valores que llenan las listas los tomas de una base de datos ?

[Totto3]

si mi estimado amigo los tomo de una tabla de SQL server llamada REMISIONES y el campo se llama "NREMISION" el cual es de tipo numerico


hasta ahora, lo que hago es pasar esos valores a un datagridview poder operar desde aqui atravez de un FOR NEXT pero no me da resultado.

[LENINCASCO]

Hola.
Se me ocurre que puedes recorrer la tabla donde recuperas los rangos.
dentro de FOR comparas el primer digito con el siguiente, si este es consecutivo
entonces sigues con el for, si no es consecutivo entonces, guardas en el list, el string que diga del digito1 al ultimo digito que llego el for.
Luego seria anotar el siguiente digito y comenzar el for otra vez.

Consideraciones:
Deberas antar el numero con el que comienza el for, guardar la posicion hasta la que llego, para que de ahi comiences a recorrer el siguiente rango.

es una orientacion general, hay muchos detalles que puedes afinar.

Espero y sirva de orientacion.

[Aquaventus]

Hola Totto3 podrias hacer algo como esto :

Código vb:

'Estas variables tienen que ser global
 Dim texto As String
    Dim inicial As Int64
    Dim siguiente As Int64
    Dim anterior As Int64
 

Código vb:

'Este objmn.LISTADOMODULO() es un metodo mio con el que lleno luego a mi datagridview
Dim dtt As DataTable = objmn.LISTADOMODULO()
        Dim num As Int64
 
        For i = 0 To dtt.Rows.Count - 1
            If i = 0 Then
                inicial = Convert.ToInt64(dtt.Rows(i).Item("NREMISION").ToString)
                texto = "Del " & inicial.ToString()
            Else
                If i = dtt.Rows.Count - 1 Then
                    num = Convert.ToInt64(dtt.Rows(i).Item("NREMISION").ToString)
                    anterior = Convert.ToInt64(dtt.Rows(i - 1).Item("NREMISION").ToString)
                    If anterior = (num - 1) Then
                        texto = texto & " al " & inicial.ToString()
                    Else
                        texto = "Del " & inicial.ToString() & " al " & inicial.ToString()
                    End If
                Else
                    num = Convert.ToInt64(dtt.Rows(i).Item("NREMISION").ToString)
                    siguiente = Convert.ToInt64(dtt.Rows(i + 1).Item("NREMISION").ToString)
                    If (num + 1) <> siguiente Then
                        texto = texto & " al " & inicial.ToString()
                        ListBox1.Items.Add(texto)
                        texto = "Del " & siguiente.ToString()
                    End If
                End If
                
            End If
        Next
 

[Totto3]

Muchisimas gracias a todos por sus aportes me han sacado del apuro....!!