[Resolvido]Loop em ListBox para Depois encontrar o registro com valor máximo em uma coluna

Amigos.. supondo que tenha um campo onde armazeno valores...

Em uma listBox ja devidamente filtrada, como executar o loop e no final me retornar o valor minimo desta coluna da list?

Se puderem me ajudar fico grato

Acho que algo assim deva funcionar:

Dim L As Double, Min As Integer

Min = Me.SuaList.Column(2, 0)

For L = 0 To Me.SuaList.ListCount - 1
If Me.SuaList.Column(2, L) < Min Then
Min = Me.SuaList.Column(2, L)
End If
Next

Mude o 2 para a coluna correta e veja se dá para adaptar ao seu caso.

Amigão.. O loop ate que consegui...

Código:

Dim NumReg
Dim Selected As Integer
Dim i
Dim X As Integer

'para looping em listBox
For i = 1 To Me.lstConsulta.ListCount - 1

MsgBox Me.lstConsulta.Column(0, i), vbOKOnly, "Item"
NumReg = " & i + 1"

Next i

'Seleção corrente
i = Me.lstConsulta.ListIndex
MsgBox Me.lstConsulta.Column(0, i), vbOKOnly, "Item"
Selected = " & i + 1"

'Fim do registro na listBox
i = Me.lstConsulta.ListCount - 1
MsgBox "Last row: " & i + 1, vbOKOnly, "End of list"

Mas a questão é a seguinte...

Supondo que a minha lista tenha 4 regitros com um determinado campo X

ID 1, CampoX = 3
ID 2, CampoX = 4
ID 3, CampoX = 2
ID 4, CampoX = 5

Este não são todos da tabela e sim uma list Filtrada...

Como eu receber o Valor máximo e o Valor mínimo do CampoX na list?

Algo Como o DMax....

Grato

O que exatamente você precisa? Apenas descobrir qual é o mínimo e o máximo ou quer pegar os dados da linha para colocar em algum lugar? Se for apenas para saber que o menor valor é 2 e o maior é 22, basta usar o que passei acima e acrescentar uma variável para pegar o maior.

Quero encontar o maior registro e o menor para depois efetuar cáuculos com ele...

O que acontece é que é uma listFiltrada... Se fosse em uma tabela utilizariamos o Dmax...

Pensei em apos inserido a SQL na list quando da filtragem... pegamos a SQL dela

Recriáriamos uma consulta temporária em cima desta SQL e contariamos esta consulta temporária...

Não sei se me compreendeu?

Acho que é isso mesmo que eu passei. Você pode guardar esses valores em uma variável ou em um campo para usar depois.

Para o minimo creio que consegui com o que me passou.. mas com o máximo me retorna o titulo da coluna...

Como resolver?


Private Sub Comando760_Click()
Dim L As Double
Dim Max

Max = Me.lstConsulta.Column(0, 0)

For L = 0 To Me.lstConsulta.ListCount - 1
If Me.lstConsulta.Column(0, L) > Max Then
Max = Me.lstConsulta.Column(0, L)
End If
Next
MsgBox Max
End Sub

Tente trocar o Max por um outro nome. Talvez o Max cause problemas. E coloque tambem o tipo de variável.

Dim NMax As Integer

Não dá para colocar como Integer, pois a List tem cabeçalho e o código entende o cabeçalho como registro...

Tente mudar assim:

...

Max = Me.lstConsulta.Column(0, 1)

For L = 1 To Me.lstConsulta.ListCount - 1

...

Hary,

Veja se funciona

Private Sub Comando760_Click()
Dim L As Double
Dim Max

Max = Me.lstConsulta.Column(0, 1)

For L = 1 To Me.lstConsulta.ListCount - 1
If Me.lstConsulta.Column(0, L) > Max Then
Max = Me.lstConsulta.Column(0, L)
End If
Next
MsgBox Max
End Sub

Perfect!

Private Sub Comando759_Click()
Dim L As Double
Dim Min

Min = Me.lstConsulta.Column(11, 1)

For L = 0 To Me.lstConsulta.ListCount - 1
If Me.lstConsulta.Column(11, L) < Min Then
Min = Me.lstConsulta.Column(11, L)
End If
Next
MsgBox Min
End Sub

Private Sub Comando760_Click()
Dim L As Double
Dim Max

Max = Me.lstConsulta.Column(11, 1)

For L = 1 To Me.lstConsulta.ListCount - 1
If Me.lstConsulta.Column(11, L) > Max Then
Max = Me.lstConsulta.Column(11, L)
End If
Next
MsgBox Max

End Sub


As duas acima.. para Min e para Max

Grato Criquio e Alexandre...

Saudações