Bonjour,
Je dois faire une erreur énorme, mais je n'arrive pas à la trouver
Je cherche le nombre de livre en prêt par genre
Pour cela je remplit un tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 gtabTableauGenre est un tableau <agrandissement=N> de 2 par 2 chaîne gnIndice est un entier = 0Trace me donne un résultat correct pour la création du tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 HLitPremier(BIB_Genre, BIB_Genre) TANTQUE HEnDehors(BIB_Genre) = Faux // Traitement de l'enregistrement gbOK = HExécuteRequête(REQ_Pret_Par_Genre,hRequêteDéfaut,BIB_Genre.BIB_Genre,SAI_Date_Debut,SAI_Date_Fin) SI gbOK = Faux ALORS Beep() Sablier(Faux) Erreur("La requête ""REQ_Pret_Par_Genre"" n'a pu s'exécuter",ErreurInfo(errComplet)) RETOUR FIN gnIndice++ gtabTableauGenre[gnIndice,1] = BIB_Genre.BIB_Genre SI HNbEnr(REQ_Pret_Par_Genre) > 0 ALORS gtabTableauGenre[gnIndice,2] = NumériqueVersChaîne((HNbEnr(REQ_Pret_Par_Genre) * 20)) SINON gtabTableauGenre[gnIndice,2] = NumériqueVersChaîne(10) FIN //info("Création tableau",gtabTableauGenre[gnIndice][1],gtabTableauGenre[gnIndice][2]) Trace("Création tableau",gtabTableauGenre[gnIndice][1],gtabTableauGenre[gnIndice][2]) HLitSuivant(BIB_Genre, BIB_Genre) FIN
Ensuite je parcourt le tableau
Et là, je retrouve bien les genres et l'indice, mais pas le nombre !!!!!!!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 POUR wI = 1 À TableauInfo(gtabTableauGenre, tiDimension) // Info("Vérification tableau ",gtabTableauGenre[wI][1],gtabTableauGenre[wI][2]) Trace("Vérification tableau "+gtabTableauGenre[wI,1]+" "+gtabTableauGenre[wI,2]+" "+wI) FIN
Sauf pour le denier genre trouvé, Western !!!!
Quelle erreur ais-je faite ????????????
Cordialement
SC
Partager