Assignation sans effet

Bonjour,

Je rentre directement dans le vif du sujet.

Voici une structure

Code:

---

1 2 3 4 5 6 7 8

Structure article Dim prixUnit As Decimal Dim quantite As Integer Dim total As Decimal Dim rayon As String Dim rabais As Decimal End Structure

---

Et une deuxième

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Structure ssTotal Dim art() as article Dim cpt As integer Public Sub AddArticle(ByVal a As article) ReDim Preserve art(cpt) cpt += 1 End Sub Public Sub Initialize() cpt = 0 End Sub End Structure

---

Bon après, je fais tout un traitement assez fastidieux à partir d'un fichier contient les tickets de caisse d'une journée dont je vous épargnerai les détails.

Mais à un moment, je fais ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim caSousTotal as Decimal = 0 For Each elem As article in sousTotal.art caSousTotal += elem.total Next   Dim tmp As Decimal = 0 For Each elem As article in sousTotal.art tmp = CDec((CInt(v) / 100) * (elem.total / caSousTotal)) elem.rabais = tmp Next

---

Ne vous occupez pas du calcul, il me donne bien le résultat escompté.
Le soucis est que la propriété rabais de l'article reste toujours à 0...
J'ai même essayé d'affecté directement la valeur 2 dans rabais en faisant elem.rabais = 2 mais ça ne change rien, rabais reste à 0.

Est-ce que quelqu'un aurait une idée du pourquoi ?

Merci d'avance.

Griftou.

t'as essayé de debugger en pas à pas ?

Bien sûr.

C'est la première chose que je fais à chaque fois que j'ai un couac.

Sinon, j'ai aussi ajouté une instruction qui sert à rien après l'affectation (genre dim a as integer = 0) pour pouvoir voir la valeur de l'attribut rabais de l'élément en cours (une fois sur le next, on n'y a plus accès) et j'ai constaté que rabais est bien mis à jour.

Je ne comprends donc pas pourquoi une fois hors de la boucle c'est remis à 0. Plus fort encore, si je regarde avec l'intellisense sur elem, la valeur est mise à jour. Si je regarde sur le nom du tableau dans la déclaration de la boucle et que je navigue jusqu'aux élements, là le rabais reste à 0.

Je n'y comprends strictement rien. Si quelqu'un pouvait m'expliquer ce qu'il se passe, cela m'arrangerait fortement.

Griftou.

ca peut arriver quand le code est dans une dll et que la référence diffère du code de la dll qui est dans le meme solution


sinon utiliese une collection List(Of ) plutot qu'un tableau avec redim preserve, c'est vraiment moche
et les propriétés plutot que des variables directement permettent de mieux débugger ...

Citation:

---

Envoyé par sperot51

ca peut arriver quand le code est dans une dll et que la référence diffère du code de la dll qui est dans le meme solution


sinon utiliese une collection List(Of ) plutot qu'un tableau avec redim preserve, c'est vraiment moche
et les propriétés plutot que des variables directement permettent de mieux débugger ...

---

Bin c'est pas ce que je fais ?

J'utilise bien un simple tableau non ?

J'suis pas sûr d'avoir tout compris là ^^

Citation:

---

Envoyé par sperot51

sinon utilise une collection List(Of ) plutot qu'un tableau avec redim preserve, c'est vraiment moche

---

pourtant ma phrase est bien tournée, utilise un list of plutot qu'un tableau
les tableaux c'est nul

Ah bin j'avais mal lu sorry :-/

Ok je vais tenter. J'me documente sur le sujet vu que j'ai encore jamais utilisé ça puis j'te dis quoi.

Merci !

Voilà, j'ai modifié mon code et j'ai fait avec les List (Of T) et le résultat est le même.

A la sortie de la boucle, la propriété rabais est toujours à 0.

Je ne comprends pas.

Griftou.

faudrait nous redonner les modifs de code
normalement la structure ssTotal n'as plus lieu d'etre

et puis faudra un peu de plus de code, genre l'endroit ou tu ajoutes des articles dans un sous total

enfin le problème vient de ton codage ...

Ouais, j'crois que j'vais recommencer un bout from scratch.

C'est pcq je pars d'un fichier codé en packed decimal... C'est un format qui a plus de 20 piges. C'est foireux à lire et à réorganiser.

Merci en tout cas !

Griftou.