Problème de référence d'objet

Version imprimable

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:

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:

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 :

Citation:

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

27/01/2012, 09h55
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...
27/01/2012, 09h57
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
27/01/2012, 10h00
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...
27/01/2012, 10h06
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 ?
27/01/2012, 10h09
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
27/01/2012, 10h13
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 :ccool:

Un énorme merci à toi !
27/01/2012, 10h15
asmduty

Pas de soucis, le AndAlso et le OrElse sont vraiment très importants, c'est le genre d'erreur qu'on fait tous au début car on ne sait pas forcément.
D'ailleurs il me semble qu'en C# le And et le Or fonctionnent comme un AndAlso et un OrElse, à confirmer.

Bonne continuation