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