LIST BOX
Prezados,
Tenho um programa desenvilvido em Visual Basic 6 (SP6) acessando bando de dados Access.
Em um dos forms coloquei um List Box que é populado a partir de uma tabela, da seguinte maneira (a string [Ô]strArgumentoPesquisa[Ô] contém [Ô]NumFollowup[Ô]):
Sub subRecuperaFollowUp(List As ListBox)
Set RS = New Recordset
RS.Open [Ô]SELECT * FROM tblFollowUp Order BY NumFollowup, DataContato;[Ô], _
CN, adOpenForwardOnly, adLockOptimistic
Do While Not RS.EOF
If RS!NumFollowup = strArgumentoPesquisa Then
List.AddItem RS!DataContato & ([Ô] - [Ô]) & _
RS!AssuntoTratado
End If
RS.MoveNext
Loop
RS.Close
End Sub
Essa rotina funciona perfeitamente, colocando no List Box o Scroll vertical.
Ocorre que o List Box exibe, sempre, os primeiros itens da tabela, que estão em ordem de data.
Se eu desejo ver o último item, tenho que recorrer ao scroll.
Alguém tem alguma dica que obrigue o List Box exibir os últimos itens ?
Antecipadamente grato,
Tenho um programa desenvilvido em Visual Basic 6 (SP6) acessando bando de dados Access.
Em um dos forms coloquei um List Box que é populado a partir de uma tabela, da seguinte maneira (a string [Ô]strArgumentoPesquisa[Ô] contém [Ô]NumFollowup[Ô]):
Sub subRecuperaFollowUp(List As ListBox)
Set RS = New Recordset
RS.Open [Ô]SELECT * FROM tblFollowUp Order BY NumFollowup, DataContato;[Ô], _
CN, adOpenForwardOnly, adLockOptimistic
Do While Not RS.EOF
If RS!NumFollowup = strArgumentoPesquisa Then
List.AddItem RS!DataContato & ([Ô] - [Ô]) & _
RS!AssuntoTratado
End If
RS.MoveNext
Loop
RS.Close
End Sub
Essa rotina funciona perfeitamente, colocando no List Box o Scroll vertical.
Ocorre que o List Box exibe, sempre, os primeiros itens da tabela, que estão em ordem de data.
Se eu desejo ver o último item, tenho que recorrer ao scroll.
Alguém tem alguma dica que obrigue o List Box exibir os últimos itens ?
Antecipadamente grato,
Acredito que o trecho abaixo resolva o problema:
List1.ListIndex = List1.ListCount - 1
Tópico encerrado , respostas não são mais permitidas