Discussion :

[baedal]

Bonjour a tous,

je m'apelle jonathan et je suis nouveau

je suis en train de faire un petit programme et dans celui-ci j'aimerais recopier le contenu d'une liste dans un tableau, seulement je n'y arrive pas, je me suis tenté a écrire ceci :

Code :

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

1
2
3
4
5
 
tCommande(nbCommande).nomClient = cli.nom            
For n = 0 To LstPanier.Items.Count - 1               
tCommande(nbCommande).tProduit(n).designation = LstPanier.Text(n)
Next

le tableau tCommande est une structure contenant une chaine de caracteres ou je stocke le nom du client, et un tableau de produit, tableau dans lequel j'aimerais stocker la liste dont je parlais (correspondant aux achats du clients) de maniere, en fin d'application a pouvoir afficher chaque client qui a commandé et ce qu'il a commandé.

seulement cela ne fonctionne pas, pouvez-vous m'aider s'il vous plait ?
merci beaucoup

[Pol63]

tu peux nous mettre les déclarations qui vont avec et préciser s'il y a erreur ou que les variables sont vides ou autre ...

[baedal]

Voici mes déclarations:

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
24
25
26
Module Module1
    Public Structure Client
        Dim nom As String
        Dim adresse As String
        Dim codepostal As String
        Dim ville As String
        Dim telephone As String
        Dim dateDernierAchat As Date
        Dim nbAchat As Integer
        Dim totalAchat As Single
    End Structure
    Public Structure Produit
        Dim designation As String
    End Structure
    Public Structure Commande
        Dim nomClient As String
        Dim tProduit() As Produit
        Dim totalAchat As Single
    End Structure
    Public FileNum As Integer = FreeFile()
    Public nbCleEnregistrement As Integer
    Public numClient As Integer
    Public cli As Client
    Public nbCommande As Integer = 0
    Public tCommande(5) As Commande
End Module

Quand au code que j'ai posté précédemment, à l'éxécution, je rencontre l'erreur :
La référence d'objet n'est pas définie à une instance d'un objet.

merci d'avoir répondu je commencais à perdre espoir

[Pol63]

ce message veut dire que t'as oublié un new en général
genre as new client
quelle ligne plante exactement ?

et sinon à la place d'une structure tu peux faire une classe

[baedal]

C'est la ligne
tCommande(nbCommande).tProduit(n).designation = LstPanier.Text(n)
qui plante

je ne sais pas, je n'ai vu les classes que en C++ et j'aimerais garder cette structure, tu pense savoir comment je peux résoudre ? :$

[Pol63]

j'ai dit des conneries, pas besoin de new pour une structure
par contre j'ai pris ton code et il manque
ReDim tCommande(1).tProduit(5) par exemple
ou redim tCommande(i).tProduit(list.count - 1)
car dans ta structure Commande tProduit est défini en tableau variable
mais il faut le dimensionné après

[baedal]

il ne vaut mieux pas
redim preserve tCommande(i).tProduit(list.count - 1) pour ne pas perdre les données ? :$

For n = 0 To LstPanier.Items.Count - 1
redim preserve tCommande(i).tProduit(list.count - 1)
tCommande(nbCommande).tProduit(n).designation = LstPanier.Text(n)
Next

d'apres toi ceci est bon ? :$

[Pol63]

redim preserve sert à ne pas perdre les données, dans le cas d'un redimensionnement c'est utile
mais dans le cas d'un 1er dimensionnement c'est pas utile

dans le code que tu viens de mettre, c'est "bete" de redimensionner à chaque passage de boucle
tu sais avant combien il t'en faut avec le count donc tu le dimensionne avant le FOR (avec redim ou non c'est toi qui voit)

ce qui donnerait :

Code :

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

1
2
3
4
5
 
redim preserve tCommande(i).tProduit(LstPanier.Items.Count - 1)
For n = 0 To LstPanier.Items.Count - 1
    tCommande(nbCommande).tProduit(n).designation = LstPanier.Text(n)
Next

[baedal]

Merci pour tes explications j'ai compris, j'ai donc utilisé le code suivant:

Code :

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

1
2
3
4
5
 
ReDim Preserve tCommande(nbCommande).tProduit(LstPanier.Items.Count - 1)
For n = 0 To LstPanier.Items.Count - 1
tCommande(nbCommande).tProduit(n).designation = LstPanier.Text(n)
Next

on redimensionne donc le tableau pour qu'il contienne autant de ligne qu'il y a d'item dans la listen, et pour 0 au nombre d'item - 1 on recopie chaque ligne de la liste dans la tableau, seulement, en éxécutant, je recontre l'erreur

L'index se trouve en dehors des limites du tableau.

meme si il n'y a qu'un élément dans la liste.
je ne vois pas pourquoi. le probleme fait toujours reference a la meme ligne, je me suis demandé si c'etait pas un probleme de syntaxe pour recopier bien le texte de l'item dans le tableau mais ca n'a aucun rapport avec les indices.

Aurais-tu une idée ? :$
merci beaucoup pour ton aide

[Pol63]

quand tu es sur un erreur il faut comprendre ce qu'elle veut dire

en l'ocurrence tu parles d'une variables tableau qui ne vas pas jusque là
exemple : tu as un tableau(8)
donc de 0 à 8
si tu fais tableau(9) ca va dire ce message d'erreur

et ensuite chercher d'où vient l'erreur, quand tu passes ta souris sur une variable, tu vas savoir combien elle contient

là à mon avis ca plante sur lstpanier.text(n)
ca doit etre lstpanier(n).text, non ? je ne pense pas qu'il y a plusieurs text pour un lstpanier...

[baedal]

excuse moi mais je n'ai pas tres bien compris ton exemple :$

par contre je pensais comme toi pour LstPanier(n).Text cependant cela produit une erreur
La classe 'System.Windows.Forms.ListBox' ne peut pas être indexée, car elle n'a pas de propriété par défaut.

je ne comprends pas, il faut que je donne une valeur par défaut à la liste ?

[Pol63]

lstpanier tu peux pas mettre lstpanier(n) car c'est pas un tableau
et text non plus
par contre essaye ca: lstpanier.Items.Item(n).tostring

[baedal]

je ne sais vraiment pas quoi dire, si ce n'est merci beaucoup sperot51, avec ceci

Code :

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

1
2
3
4
5
 
ReDim Preserve tCommande(nbCommande).tProduit(LstPanier.Items.Count - 1)
For n = 0 To LstPanier.Items.Count - 1
tCommande(nbCommande).tProduit(n).designation = LstPanier.Items.Item(n).ToString
Next

plus aucune erreur et cela fonctionne, jai essayer de verifier en affichant le contenu avec un msgbox car je n'arrivais pas a voir l'evolution du tableau dans les variables locales mais ca a l'air de fonctionner a merveille.
un énorme merci a toi

[Pol63]

pense à mettre le topic à résolu (bouton en bas du thread j'crois)