Bonjour,
Je n'arrive pas à comprendre d'ou vient mon erreur car je pense que j'ai bien tout déclaré. voici mon code :
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
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
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
Partager