Ordenar Listview

[rulsanchez]

Hola amigos!! pues eso, que tengo un Listview con 3 columnas y quiero que ordene por la primera pero me lo ordena como string, y yo quiero que lo ordene como numérico, y no soy capaz de arreglarlo.
Muchisimas gracias por su interés y por leerme.
Un saludo foreros ;)

[Avellaneda]

Iniciado por rulsanchez

Hola amigos!! pues eso, que tengo un Listview con 3 columnas y quiero que ordene por la primera pero me lo ordena como string, y yo quiero que lo ordene como numérico, y no soy capaz de arreglarlo.
Muchisimas gracias por su interés y por leerme.
Un saludo foreros ;)

Hola! mira, un truco es convertir el número a string, ordenarlo y volverlo a convertir a número.

Código:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim i As Integer
With ListView1
    .SortOrder = IIf(.SortOrder = lvwAscending, lvwDescending, lvwAscending)
    If ColumnHeader.Index = 1 Then ' primera columna
        ' convertir el número a una cadena de 20 caracteres
        For i = 1 To .ListItems.Count
            .ListItems.Item(i) = String(20 - Len(.ListItems.Item(i)), "0") & .ListItems.Item(i)
        Next i
        ' ordenarlo
        .Sorted = True
        ' restaurar formato número
        For i = 1 To .ListItems.Count
            .ListItems.Item(i) = Val(.ListItems.Item(i))
        Next i
    End If
    ' seleccionar la 1ª fila
    .ListItems(1).Selected = True
    .ListItems(1).EnsureVisible
End With
End Sub

Saludos

[rulsanchez]

Hola Avellaneda, funciona perfectamente, pero no entiendo su funcionamiento, quiero decir, si tengo que ordenar por numero.....¿Porqué lo pasas a string primero y luego lo ordenas?, si lo haces asi tendria que ordenarte esto--->> 5-23-1 así 1-23-5 porque son string....es lo que no entiendo, me lo podrias explicar?

Perdón por las molestias Avellaneda :(

[Avellaneda]

Iniciado por rulsanchez

Hola Avellaneda, funciona perfectamente, pero no entiendo su funcionamiento, quiero decir, si tengo que ordenar por numero.....¿Porqué lo pasas a string primero y luego lo ordenas?, si lo haces asi tendria que ordenarte esto--->> 5-23-1 así 1-23-5 porque son string....es lo que no entiendo, me lo podrias explicar?

Perdón por las molestias Avellaneda :(

Hola rulsanchez

La propiedad Sorted del control ListView siempre ordena alfabéticamente (como cadenas de texto).

y en tu ejemplo:
5-23-1 ordenaría 1-23-5

pero si pones
005-023-001 ordenaría 001-005-023 que si lo convertimos a número sería 1-5-23

En conclusión, lo que hacemos es ponerle una cantidad de ceros por delante (x - los que tiene el número) para que haga bien la ordenación.

[rulsanchez]

Te mereces un diez!!! Muchisimas gracias por todo Avellaneda, no solo me ha salido, sino que me lo has explicado muy bien y lo he entendido.
Mil gracias compañero!