PROBLEMAS COM ORDENACAO - LISTVIEW
Estou tendo problema ao ordenar números no listview.
Ex: 2, 10, 100.
Quando clico na coluna ele ordena: 10, 100, 2. Quando o correto seria 2, 10, 100. Provavelmente ele deve entender que o dado é uma string. Quando coloco zeros a esquerda (utilizando a função format) ele funciona corretamente.
Alguém sabe de alguma forma de contornar este problema ?
Ex: 2, 10, 100.
Quando clico na coluna ele ordena: 10, 100, 2. Quando o correto seria 2, 10, 100. Provavelmente ele deve entender que o dado é uma string. Quando coloco zeros a esquerda (utilizando a função format) ele funciona corretamente.
Alguém sabe de alguma forma de contornar este problema ?
eu normalmente uso o 0 a esquerda - mas vc sempre pode tentar "enganar" o componente...
Option Explicit
Private Sub Form_Load()
Dim col As ColumnHeader
Dim item As ListItem
ListView1.View = lvwReport
ListView1.Sorted = True
Set col = ListView1.ColumnHeaders.Add
col.Text = "Teste"
col.Width = 0
Set col = ListView1.ColumnHeaders.Add
col.Text = "Teste1"
Set item = ListView1.ListItems.Add
item.Text = "003"
item.SubItems(1) = 3
Set item = ListView1.ListItems.Add
item.Text = "020"
item.SubItems(1) = 20
End Sub
Option Explicit
Private Sub Form_Load()
Dim col As ColumnHeader
Dim item As ListItem
ListView1.View = lvwReport
ListView1.Sorted = True
Set col = ListView1.ColumnHeaders.Add
col.Text = "Teste"
col.Width = 0
Set col = ListView1.ColumnHeaders.Add
col.Text = "Teste1"
Set item = ListView1.ListItems.Add
item.Text = "003"
item.SubItems(1) = 3
Set item = ListView1.ListItems.Add
item.Text = "020"
item.SubItems(1) = 20
End Sub
Tópico encerrado , respostas não são mais permitidas