Discussion :

[Romain0]

Bonjour,

Je n'arrive pas à comprendre d'ou vient mon erreur car je pense que j'ai bien tout déclaré. voici mon 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
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
Private Sub chkboxProprietaire_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxProprietaire.CheckedChanged
        If chkboxProprietaire.Checked = True Then
            Dim CmdTestRemarques As New SqlCommand("SELECT idVP, modeleVP + ' ' + libelleVP as InfosVP FROM VP WHERE remarqueVP <> ''", MaConnexion)
            Dim Mavar As Integer = 0
            MaConnexion.Open()
            Mavar = CmdTestRemarques.ExecuteScalar
            MaConnexion.Close()
            MsgBox(Mavar)
 
            If Mavar > 0 Then
                lstVP.DataSource = Nothing
                lstVP.Items.Clear()
                Dim CmdSelectVP As New SqlCommand("SELECT idVP, modeleVP + ' ' + libelleVP as InfosVP FROM VP WHERE remarqueVP <> ''", MaConnexion)
 
 
                lstVP.DataSource = Nothing
                lstVP.Items.Clear()
                Dim dtVP As New DataTable()
                Dim daTableVP As New SqlDataAdapter(CmdSelectVP)
 
                'Listbox Voile Principale
                daTableVP.Fill(dtVP)
                lstVP.DataSource = dtVP
                lstVP.DisplayMember = "infosVP"
                lstVP.ValueMember = "idVP"
 
 
            Else
                MessageBox.Show("Aucune remarque sur les VP", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
 
        Else
            Dim CmdSelectVP2 As New SqlCommand("SELECT idVP, modeleVP + ' ' + libelleVP as InfosVP FROM VP", MaConnexion)
 
 
            lstVP.DataSource = Nothing
            lstVP.Items.Clear()
 
            Dim dtVP As New DataTable()
            Dim daTableVP As New SqlDataAdapter(CmdSelectVP2)
 
            'Listbox Voile Principale
            daTableVP.Fill(dtVP)
            lstVP.DataSource = dtVP
            lstVP.DisplayMember = "infosVP"
            lstVP.ValueMember = "idVP"
 
 
        End If
 
 
    End Sub

et voici le code de ma listbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub lstVP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstVP.SelectedIndexChanged
 
 
        If lstVP.SelectedValue.ToString <> "System.Data.DataRowView" And lstVP.SelectedValue.ToString <> "" Then
            Dim CmdSelectInfosVP As New SqlCommand("SELECT modeleVP, libelleVP, surface, remarqueVP FROM VP Where idVP = " & lstVP.SelectedValue & "", MaConnexion)
            MaConnexion.Open()
            Dim CurseurSelectInfosVP As SqlDataReader = CmdSelectInfosVP.ExecuteReader
            While CurseurSelectInfosVP.Read
                txtModele.Text = CurseurSelectInfosVP.GetString(0)
                txtLibelle.Text = CurseurSelectInfosVP.GetString(1)
                txtSurface.Text = CurseurSelectInfosVP.GetValue(2)
                txtRemarques.Text = CurseurSelectInfosVP.GetString(3)
            End While
            MaConnexion.Close()

Mon erreur arrive à Listbox_SelectedIndexChanged, lorsque je change le statut de ma checkbox et j'obtiens le message suivant :

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

Quelqu'un pourrait il me dire d'ou provient mon erreur ? car j'ai bien utilisé les mots new et j'ai bien détruit les autres elements avant d'utiliser les mêmes (lstVP.datasource = nothing et lstVP.items.clear())


Cordialement

[Gurdil le nain]

Bonjour,

Quelle ligne déclenche cette erreur ?
Il faudrait peut être que tu testes si ton lstVP.SelectedValue n'est pas null...

[Romain0]

Bonjour,

Je viens de rajouter la condition And lstVP.SelectedValue IsNot Nothing, et à priori cela fonctionne, mais maintenant lorsque je clique sur la checkbox, en pas a pas je vois bien que toutes les étapes se déroulent correctement mais après ça ne passe plus jamais par l'évènement IndexChanged et la liste n'est pas mise à jour, meme quand je change d'item manuellement celà ne fait rien....

J'ai toujours la même erreur...

[asmduty]

Le contrôle sur Nothing est à ajouter en premier contrôle, car sinon tu vas d'abord faire un ToString et planter avant de vérifer que ton objet n'est pas à Nothing ...
Ensuite tu dois utiliser un AndAlso pour la condition suivante, ça permet de spécifier que si la première condition est fausse, tu ne vas pas vérifier la suivante, tu sors directement du IF. (Le Orelse fait l'inverse, si ta première condition est bonne, il ne s'embête pas à vérifier les autres, il rentre directement)

Pour ton problème, as-tu mis un point d'arrêt sur la sub SelectedIndexChange ?

[Romain0]

Lorsque j’exécute en pas à pas, le programme passe par lstVP.datasource = nothing, il passe aussitôt par selectindexChanged.... donc d'un sens logique car il ne vide pas les items et n'execute pas la requete pour remplir les nouveaux items...

Je en comprends vraiment pas

[Romain0]

J'avais mal positionné mon AndAlso, je ne connaissais pas cette condition, cela fonctionne à merveille maintenant, je te remercie, ccela va beaucoup m'aider dans mon développement


Un énorme merci à toi !

[asmduty]

Bonjour,

suffit de regarder quelle ligne plante déjà

Je suppose que c'est lstVP.SelectedValue.ToString.
Si lstVP.SelectedValue = Nothing tu ne peux pas faire un ToString dessus.
Si l'erreur vien bien de là, il suffit de rajouter en condition : Not lstVP.SelectedValue is Nothing andalso.

EDIT : Devancé, même intuition