Une arrayList en session

Version imprimable

10/12/2008, 11h44
Caillou63

Une arrayList en session

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
10/12/2008, 13h52
SaumonAgile

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

Bonjour,

Voici le code :

Code:

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

10/12/2008, 16h19
eikeshi

Regardes de ce côté :
http://msdn.microsoft.com/fr-fr/libr...mcommands.aspx
10/12/2008, 17h11
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:

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)

Bonjour,

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

Code:

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