Discussion :

[Kropernic]

Bonjour,

Je rentre directement dans le vif du sujet.

Voici une structure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pol63]

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

[Kropernic]

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.

[Pol63]

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 ...

[Kropernic]

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à ^^

[Pol63]

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

[Kropernic]

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 !

[Kropernic]

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.

[Pol63]

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 ...

[Kropernic]

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.