Discussion :

[Caillou63]

Bonjour,

Je stocke une arraylist en session dans une page web. Je la rempli et la vide avec des actions sur des bouttons.
Pour l'ajout tout se passe bien. Mais pour la suppression mon arraylist ne se vide pas. Pour la vider j'utilise la méthode Remove, puis je renvoie ma arraylist en session.
Quelle solution dois-je employer?? Quelle(s) est (sont) les erreurs faites??

Merci de votre aide

Cordialement,

Caillou

[SaumonAgile]

Tu es sûr que la suppression de l'élément se passe bien ?
Montre nous le code que tu utilises stp.

[Caillou63]

Bonjour,

Voici le code :

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
Dim listePJ As ArrayList = CType(Session(CLE_SESSION_LISTE_PJ), ArrayList)
 
            Dim objDel As PiecesJointes = New PiecesJointes()
            If listePJ Is Nothing Then
                listePJ = New ArrayList
            End If
 
            Dim ib As ImageButton = CType(sender, ImageButton)
 
            For Each curObj As Object In listePJ
                If curObj.Id = ib.CommandArgument Then
                    objDel.Id = curObj.Id
                    objDel.Libelle = curObj.Libelle
                End If
            Next
 
            listePJ.Remove(objDel)
 
            Session(CLE_SESSION_LISTE_PJ) = listePJ

Merci de votre aide future,

Caodialement,

Caillou

[eikeshi]

Regardes de ce côté :
http://msdn.microsoft.com/fr-fr/libr...mcommands.aspx

[Philippe Vialatte]

salut

je crois me rappeler que dans une arraylist, remove supprime un objet...

Or, ton objet objDel ne peux pas se situer dans ton arraylist, vu que c'est une nouvelle instance de PiecesJointes

a priori, je dirais plutot :

Code :

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

1
2
3
4
5
6
7
 
For Each curObj As Object In listePJ
 If curObj.Id = ib.CommandArgument Then
   objDel = curObj
   Exit For
 End If
Next

apres, je suis pas sur de la syntaxe (les arrayLists, c'est maaaaal)

[Caillou63]

Bonjour,

Merci pour votre aide. La solution a été trouvée, voici le spirit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim idxObjDel As Integer = -1
For i As Integer = 0 To listePJ.Count - 1
          Dim curObj As PiecesJointes = listePJ.Item(i)
          If curObj.Id.ToString().Equals(ib.CommandArgument) Then
               idxObjDel = i
          End If
Next
 
If idxObjDel >= 0 Then
   listePJ.RemoveAt(idxObjDel)
End If

Cordialement,

Caillou