[vb2005] problème avec list.remove

**Kropernic** · 25/10/2010, 12h07

Bonjour à tous,

Dans une de mes classes (user.vb), j'ai le bout de code ci-dessous.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
    Private _laptops As List(Of Laptop)
    Public Property Laptops() As List(Of Laptop)
        Get
            Return _laptops
        End Get
        Private Set(ByVal value As List(Of Laptop))
            _laptops = value
        End Set
    End Property

    Public Sub AddLaptop(ByVal laptop As Laptop)
        If Not Me.Contains(laptop) Then
            If LaptopDAO.UpdateLaptop(laptop, Me.Username, "update") Then
                _laptops.Add(laptop)
            Else
                MessageBox.Show(messLaptopErrorAdd, titleError, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            MessageBox.Show(messLaptopAlreadyExists, titleError, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Public Sub RemoveLaptop(ByVal laptop As Laptop)
        If Me.Contains(laptop) Then
            If LaptopDAO.UpdateLaptop(laptop, "", "detach") Then
                _laptops.Remove(laptop)

            End If
        Else
            MessageBox.Show(messLaptopNotFound, titleError, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Public Function GetLaptop(ByVal serial As String) As Laptop
        For Each laptop As Laptop In _laptops
            If laptop.Serial = serial Then
                Return laptop
            End If
        Next
        Return Nothing
    End Function

Comme vous le voyez, un user peut posséder plusieurs laptops. Il y a une méthode pour en obtenir un, en ajouter un et en retirer un.

J'aurais voulu votre avis concernant la méthode RemoveLaptop.
J'ai un doute concernant la ligne "_laptops.Remove(laptop)" (celle en rouge).

Lors de l'appel à cette méthode, je récupère bien l'objet en question en utilisant la méthode GetLaptop mais j'ai l'impression que quelque chose se passe de travers durant la méthode RemoveLaptop.

En effet, j'affiche les différents laptop d'un user dans une combobox (uniquement le numéro de série). Au départ, tout se passe bien. Après un ajout, tout se passe bien également. Après un remove, à place des valeurs attendues, j'ai "usermanagement.laptop".

C'est grave docteur ?

Merci d'avance.

Griftou.

**ostenhard** · 27/10/2010, 10h25

Bonjour,

Peux-tu poster le code du bind de ta liste de laptop et la combobox ?
Et le code qui appelle le Remove.

**Kropernic** · 27/10/2010, 13h05

Le code qui lie les deux est vraiment tout ce qu'il y a de plus simple. Ca donne ceci

Code :

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

1
2
3
4
 
combobox.displaymember = "Serial"
combobox.valuemember = "Serial"
combobox.datasource = user.laptops

**ostenhard** · 27/10/2010, 13h21

Que contient _laptops juste après _laptops.Remove(laptop) ?

Le laptop n'est plus présent ?

**Kropernic** · 27/10/2010, 14h14

Justement, c'est pour ça que je ne comprends. Quand je fais tourner le programme en mode step by step et que je vérifie moi même dans VS à chaque étape le contenu de mes variables, tout est correct.

J'ai la même chose avec la liste des gsm's et des clés vpn... (logique, vu que c'est le même code ^^).

Encore une chose intéressante aussi. J'ai un controle de type DataGridView qui reçoit la même source de données que la combobox (histoire de voir le détail et pas juste le numéro de série). Dans ce controle, ça marche nickel...

**ostenhard** · 27/10/2010, 14h39

Est-ce que le displaymember et le valuemember est toujours renseigné avant et après le remove ?

**Kropernic** · 27/10/2010, 14h55

A chaque fois que je modifie la source de données, je réaffecte tout ce qui concerne le binding histoire d'être sûr (en n'oubliant d'assigner nothing au datasource avant de faire les modifs)

Pour plus de détails, il y a ce topic que j'avais créé au début.

Depuis je pense avoir mieux localisé la source du problème donc j'en ai fait un nouveau car le précédent semblait un peu indigeste...

**ostenhard** · 27/10/2010, 15h50

J'ai fait un petit test qui fonctionne parfaitement :

Une form avec deux combo et un bouton pour supprimer un laptop sur un user

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
27
28
29
30
31
32
33
34
35
36
37
38
 
Public Class Form1
 
    Private Sub cbUsers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbUsers.SelectedIndexChanged
        Dim user As User = cbUsers.SelectedItem
 
        cbLaptop.DataSource = user.Laptops
        cbLaptop.DisplayMember = "Serial"
    End Sub
 
    Private Sub btnRemoveLapTop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveLapTop.Click
        Dim user As User = cbUsers.SelectedItem
        Dim laptop As LapTop = cbLaptop.SelectedItem
 
        user.RemoveLaptop(laptop)
        cbLaptop.DataSource = Nothing
        cbLaptop.DataSource = user.Laptops
        cbLaptop.DisplayMember = "Serial"
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim users As New List(Of User)
 
        For i As Integer = 0 To 25
            Dim user As New User()
            user.Name = i.ToString()
            For j As Integer = 0 To 10
                Dim laptop As New LapTop()
                laptop.Serial = "Serial-" & i & "-" & j
                user.AddLaptop(laptop)
            Next
            users.Add(user)
        Next
 
        cbUsers.DataSource = users
        cbUsers.DisplayMember = "Name"
    End Sub
End Class

Mes classes user et laptop :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Public Class User
    Private _name As String
    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property
 
    Private _laptops As New List(Of LapTop)
    Public Property Laptops() As List(Of LapTop)
        Get
            Return _laptops
        End Get
        Private Set(ByVal value As List(Of LapTop))
            _laptops = value
        End Set
    End Property
 
    Public Sub AddLaptop(ByVal laptop As LapTop)
        If Not _laptops.Contains(laptop) Then
            'If LaptopDAO.UpdateLaptop(laptop, Me.Username, "update") Then
            _laptops.Add(laptop)
            'Else
            '    MessageBox.Show(messLaptopErrorAdd, titleError, MessageBoxButtons.OK, MessageBoxIcon.Error)
            'End If
        Else
            'MessageBox.Show(messLaptopAlreadyExists, titleError, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
    Public Sub RemoveLaptop(ByVal laptop As LapTop)
        If _laptops.Contains(laptop) Then
            'If LaptopDAO.UpdateLaptop(laptop, "", "detach") Then
            _laptops.Remove(laptop)
 
            'End If
        Else
            'MessageBox.Show(messLaptopNotFound, titleError, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
    Public Function GetLaptop(ByVal serial As String) As LapTop
        For Each laptop As LapTop In _laptops
            If laptop.Serial = serial Then
                Return laptop
            End If
        Next
        Return Nothing
    End Function
End Class

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class LapTop
    Private _serial As String
    Public Property Serial() As String
        Get
            Return _serial
        End Get
        Set(ByVal value As String)
            _serial = value
        End Set
    End Property
 
End Class

**Kropernic** · 27/10/2010, 15h56

Je vois que tu as mis la ligne d'assignation de la propriété datasource avant les lignes members (value et display).

Il me semble avoir lu (il y a longtemps^^) qu'il fallait mettre datasource après.

Quoi qu'il en soit, j'ai essayé en mettant la ligne avec datasource avant.
Dans ce cas, quand je déroule la combobox, j'ai bien la valeur voulue mais, quand je clique sur un record se trouvant dans le controle datagridview (ce qui provoque le changement de record dans la combobox aussi puisqu'il s'agit de la même source), j'ai de nouveau le type de la variable plutot que le contenu...

Chose "amusante", avec mon code initial, j'ai le type dans la combobox mais quand je choisis un record dans la grille, la combobox affiche la valeur

**ostenhard** · 27/10/2010, 15h58

Tu peux poster le code correspondant au datagridview_Click, là où tu affectes la combo

**Kropernic** · 27/10/2010, 16h00

je n'ai aucun code dans cet évènement.

vu que j'affecte le même objet comme datasource de la grille et de la combo, quand tu changes dans l'un, ça change automatiquement dans l'autre.

**ostenhard** · 27/10/2010, 16h12

Ah ben le code de ça alors !

**Kropernic** · 27/10/2010, 16h14

Envoyé par griftou

Le code qui lie les deux est vraiment tout ce qu'il y a de plus simple. Ca donne ceci

Code :

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

1
2
3
4
 
combobox.displaymember = "Serial"
combobox.valuemember = "Serial"
combobox.datasource = user.laptops

Voilà ^^

Et sinon pour le DataGridView bien ça donne :

Code :

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

1
2
3
 
dgv.datasource = nothing
dgv.datasource = user.laptops

Ou alors je n'ai pas compris à quel code tu fais allusion

**ostenhard** · 27/10/2010, 16h25

Euh tu fais plutôt

Code :

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

1
2
3
4
5
 
combobox.datasource = Nothing
combobox.displaymember = "Serial"
combobox.valuemember = "Serial"
combobox.datasource = user.laptops

**Kropernic** · 27/10/2010, 16h26

oui oui bien sûr.

j'avais retappé ce code manuellement (la machine de développement n'est pas sur le même réseau que celle depuis laquelle j'écris). J'avais donc oublié une ligne.

Ca change quelque chose au problème ? :-/

**ostenhard** · 27/10/2010, 16h32

Ne voyant pas le problème, le plus simple est peut-être de reprendre si un exemple simple tel que le mien.

[vb2005] problème avec list.remove

VB.NET

Discussions similaires

Partager

Partager