Bonjour à tous,
En VB5 j'ai une Form et dans le load je charge ma table clients dans un lisbox à deux colonnes avec un recordset ci dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim rsListeClient As Recordset
lstClients.Clear
Set rsListeClient = Bd.OpenRecordset("select Nom,Prénom,Cod from Clients order by Nom")
While Not rsListeClient.EOF
lstClients.AddItem rsListeClient![Nom] & Chr(9) & rsListeClient![Prénom]
lstClients.ItemData(lstClients.NewIndex) = rsListeClient![cod]
rsListeClient.MoveNext
Wend
rsListeClient.Close
Pour faire ma recherche plus facilement dans la liste j'ai placé un TextBox , avec dans l'évenemnt change ce code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
lstClients.ListIndex = SendMessage(lstClients.hwnd, LB_FINDSTRING, -1, _
ByVal CStr(TextRechNom.Text))
L'API est déclarée dans le général de la feuille
Tout fonctionne très bien, mais je voudrais juste rassembler les clients en fonction de le première lettre choisie.avec LIKE mais je sèche un peu la dessus.
Non sans avoir parcouru avec insistance les questions posées un peu partout.
Bien à vous.
VB