Discussion :

[abd75web]

Bonjour

Aprés plusieurs jours de reccherche dans sur le net, j'ai pas pu trouver l'erreur dans mon code, alors je m'adresse a vous si vous pouvez m'aider

mon sujet est:

j'ai un datagridview "DataGListe" lié à une datatable

j'ai ajouté au DataGListe une colonne de type DataGridViewComboBoxColumn

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
Sub AjouterColonne()
 
                    Dim ComboColonne As New DataGridViewComboBoxColumn
                    With Me.DataGListe
                        .Columns.Insert(4, ComboColonne)
                        With .Columns(4)
                            .Width = 200
                            .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
                            .Name = "Reglement"
                            .ReadOnly = False
                        End With
                   End With
 
                    Dim cb As New DataGridViewComboBoxCell
                    cb.Items.Add("1")
                    cb.Items.Add("2")
                    Me.DataGListe.Rows.Item(0).Cells("Reglement") = New DataGridViewComboBoxCell()
                    Me.DataGListe.Rows.Item(0).Cells("Reglement") = cb
                    Me.DataGListe.Rows.Item(0).Cells("Reglement").Value = cb.Items(0).ToString
                    Me.DataGListe.Columns(0).ReadOnly = True
 
End Sub
 
Private Sub FrmListe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AjouterColonne()
End Sub

Puis dans l'evenement CellClick de mon datagridview j'ai mis

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub DataGListe_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGListe.CellClick
 
                If Me.DataGListe.Columns(e.ColumnIndex).Name = "Reglement" Then
                    Me.DataGListe.BeginEdit(True)
                    If DataGListe.Rows(e.RowIndex).Cells("Reglement").Selected = True Then
                        DirectCast(Me.DataGListe.EditingControl, DataGridViewComboBoxEditingControl).DroppedDown = True
                    End If
                EndIf
 
End Sub

mais j'ai toujours l'erreur

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

merci

[mactwist69]

Sur quelle ligne s'arrête il ?

Ou plutôt, au pas-à-pas, quand est ce que l'exception est levé ?

Ca te permettrait de trouver quelle variable ou objet contient Nothing et donc de résoudre ton problème.

[abd75web]

Il s'arrete sur la ligne

Code :

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

DirectCast(Me.DataGListe.EditingControl, DataGridViewComboBoxEditingControl).DroppedDown = True

j'ai refait cette ligne

Code :

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

1
2
3
                  Cl = New DataGridViewComboBoxEditingControl                    
                    Cl = CType(Me.DataGListe.EditingControl, DataGridViewComboBoxEditingControl)
                    Cl.DroppedDown = True

et l'erreur se déclanche au

Code :

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

                    Cl.DroppedDown = True

[euyeusu]

S'il s'arrête sur la ligne

Code :

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

Cl.DroppedDown = True

Cela semble indiquer que Cl est à Nothing.

Peux tu nous le confimer ?

[mactwist69]

C'est ce qu'il semble en effet,

du coup, c'est ça qui retourne nul :

Code :

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

CType(Me.DataGListe.EditingControl, DataGridViewComboBoxEditingControl)

J'ai regardé EditingControl, il retourne le controle du currentCell si celui-ci est en mode edit.

Donc deux choses :

- soit le currentcell n'est pas sélectionné. J'ai vu que tu as fais .Selected = True, pas sur que ça marche... presque sur que ça ne marche pas d'ailleurs. (Selection ne veut pas dire Current) Dans la MSDN pour sélectionner la current cell, ils suggèrent

Code :

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

Me.dataGridView1.CurrentCell = Me.dataGridView1(1, 0)

(et non pas en utilisant .Selected)

- Et/Ou la cellule n'est pas en mode edit.

[abd75web]

Après le pas à pas je confirme que

Code :

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

CType(Me.DataGListe.EditingControl, DataGridViewComboBoxEditingControl)

est à Nothing

Et/Ou la cellule n'est pas en mode edit.

la colonne est en mode ReadOnly.
Je ne sais pas si la cellule peut être en mode Edit si elle est en ReadOnly

[abd75web]

En fin ca marche

j'ai mis ma colonne "DataGridViewComboBoxColumn" en mode ReadOnly=False
et j'ai laissé les autres colonnes en ReadOnly

et j'ai se que je voulais

Merci pour votres aides