COMPTAGE D ELEMENTS D UN TABLEAU

laurent92370 Messages postés 70 Date d'inscription mercredi 24 septembre 2003 Statut Membre Dernière intervention 20 mars 2007 - 29 janv. 2006 à 16:40
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 30 janv. 2006 à 08:49
Bonjour tout le monde !

Voici un problème qui va me faire tourner en bourrique ... je me casse la tête dessus depuis hier. A savoir :

Dans une variable de type tableau je récupère les valeurs d'un champ d'une table access.
Ces valeurs sont 001, 002, 003, 004, 005 ....... Ces mêmes valeurs peuvent se répéter plusieurs fois. Donc je peux avoir par exemple : 001,002,001,003,004,001,002,003,004,001,001,002,003,004
Ce que je voudrais faire, c'est, qu'une fois que ces valeurs sont dans mon tableau, c'est compter le nombre de valeur 001, compter le nombre de valeurs 002 et ainsi de suite.

Merci de votre aide

2 réponses

cs_Stephane33 Messages postés 630 Date d'inscription samedi 15 février 2003 Statut Modérateur Dernière intervention 9 octobre 2011 1
29 janv. 2006 à 17:57
Dans ta requête tu peux déjà les trier
"SELECT * FROM MaTable ORDER By MaValeur"
comme ça quand tu rempli ton tableau elle sont déjà trier, à toi ensuite de trouver une boucle pour te les nombrer

Sinon il existe une possibilté de trie sur un array dans VB.net

Juste faites-le
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
30 janv. 2006 à 08:49
Lut,

Tu peux aussi faire une boucle du genre:

Dim i as integer
Dim j as integer
Dim NombreFois() as integer
Dim TmpNbr as integer
redim NombreFois(0)
For i = Lbound(Tableau()) to ubound(Tableau()) - 1
TmpNbr = 0
For j = i + 1 to ubound(Tableau())
if tableau(j) Tableau(i) then TmpNbr TmpNbr + 1
next j
NombreFois(Ubound(NombreFois)) = TmpNbr
Redim Preserve NombreFois(Ubound(NombreFois) + 1)
next i

J ai pas verifier mais teste pour voir
0