Discussion :

[LePassager]

Bonjour tout le monde
Voici mon probleme :
je possede un hashtable d'objets declarée dans winform1 comme propriete :

Code :

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

Friend shared autorisations as new Hashtable

Cette hashtable contient des objets de type Autorisation( ID, Value)
dont la clé de chaque element Autorisation est ID.

les clés du hashtable sont visibles via une liste, quand l'utilisateur selectionne un ID, un nouveau winform2 modal s'ouvre.

en recuperant l'ID ( je le stocke dans une variable que je passe aussi a winform2) selectionné ainsi que HashTable autorisations dans winform2 je n'arrive pas a afficher Value de l'element selectionné à partir de ma Hashtable

Je stocke l'ID dans une variable que je passe aussi a winform2)

Code :

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

1
2
friend ID as integer '( variable de winform1)
ID = list.selectedValue

voici comment je recupere hashtable et l'ID selectionné dans winform2:

Code :

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

1
2
3
Dim ID2 as integer = winform1.ID
Dim autorisations2 as new HashTable
autorisations2 = winform1.autorisations

en essayant d'afficher la valeur de l'ID recuperer :

Code :

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

lbl_value.Text =  autorisations2(ID2).Value

j'obtient le fameux message :

NullReferenceException :
La référence d'objet n'est pas définie à une instance d'un objet

Merci de m'aider à regler mon probleme.

[Pol63]

Code :

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

1
2
3
4
5
6
7
if autorisations2 is nothing then
  msgbox ("y a un truc qui cloche")
end if
 
if not autorisations2.contains(id2) then
  msgbox ("j'ai du rater un truc, et je programme en pensant que ca être bon mais sans vérifier à l'exécution")
end if

et au passage, le new sert à instancier

Code :

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

1
2
Dim autorisations2 as new HashTable
autorisations2 = winform1.autorisations

ici ca ne sert à rien d'instancier un new hashtable pour le mettre dans autorisations2 sachant que tu le recouvres pas une autre valeur

=>

Code :

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

1
2
Dim autorisations2 as HashTable
autorisations2 = winform1.autorisations

[LePassager]

Code :

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

1
2
3
4
5
6
7
if autorisations2 is nothing then
  msgbox ("y a un truc qui cloche")
end if
 
if not autorisations2.contains(id2) then
  msgbox ("j'ai du rater un truc, et je programme en pensant que ca être bon mais sans vérifier à l'exécution")
end if

et au passage, le new sert à instancier

Code :

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

1
2
Dim autorisations2 as new HashTable
autorisations2 = winform1.autorisations

ici ca ne sert à rien d'instancier un new hashtable pour le mettre dans autorisations2 sachant que tu le recouvres pas une autre valeur

=>

Code :

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

1
2
Dim autorisations2 as HashTable
autorisations2 = winform1.autorisations

Merci d'avoir repondu,
la valeur n'est pas recuprée si je fais le test que t'as mis

je fais quoi alors ???

[Pol63]

si tu n'as d'add pas l'élément dans la collection il n'y est pas ...

[LePassager]

si tu n'as d'add pas l'élément dans la collection il n'y est pas ...

je te comprends bien, mais en parcourant la hashtable avec for each
j'arrive a recuperer toutes les valeurs ...

as tu une solution plus pratique ?

[Pol63]

non
et je ne connais pas trop le hashtable, pourquoi as tu besoin d'un hashtable ?

[LePassager]

non
et je ne connais pas trop le hashtable, pourquoi as tu besoin d'un hashtable ?

j'ai simplié l'objet autorisation dans le but de facilité la comprehesion du probleme

puisque tu veux le savoir :

l'objet Autorisation comporte un ID, val1, val2 et liste d'objets de type Ligne(id _ligne, destination, designation... + liste d'Objets localite (id, heure depart, heure d'arrivée ) )
le recours un hashtable me facilite l'acces direct au contenu de l'objet Autorisation et donc de le modifier au cas ou existe sinon de l'ajouter sinon.

chaque liste d'objet a sa propore interface graphique, et grace à la clé de la table je peux acceder directement a l'objet desiré

au final, le traitement a faire doit etre effectuer a l'ensemble des objets sinon rien ne passera

[Pol63]

je viens de regarder le hashtable, quand j'ai besoin d'un truc dans le genre je prend un collections.generics.dictionary(of T, T)
ca permet de choisir le type de la clé et le type des objets

au passage j'ai fait le test que je craignais:

Code :

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

1
2
3
4
5
6
7
8
9
 
        Dim d As Integer = 2
        Dim d2 As Long = 2
 
        Dim h As New Hashtable
        h.Add(d, Nothing)
        If Not h.Contains(d2) Then
            MsgBox("non")
        End If

avec ce code le messagebox s'affiche, certes 2=2 mais ils n'ont pas le même type


après je ne vais pas pouvoir t'aider plus, on a que 4 pauvres lignes de code ...