Discussion :

[yusufwac]

[B]bonjour

j'ai un message d'erreur lorsque je tente d'ajouter une ligne.voila le code du bouton (ajouter)

Code :

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

1
2
3
4
5
6
7
8
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            Me.STOCKBindingSource.AddNew()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

et voila l'erreur que j'ai :

sachant que je crois que le problème vient du code que j'ai met pour colorier des cellules :

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
Private Sub STOCKDataGridView_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles STOCKDataGridView.CellPainting
        Dim ligne As Integer 'Variables de position de cellule
        ' Dim colonne As Integer = 6
        'Parcourir le STOCKDataGridView
        Try
            For ligne = 0 To STOCKDataGridView.RowCount - 1
                ' colonne = STOCKDataGridView.ColumnCount - 1
                '       'Si la valeur de la cellule(5,ligne) < cellule(6,ligne) alors
                If STOCKDataGridView.Item(5, ligne).Value < STOCKDataGridView.Item(6, ligne).Value Then
                    'Colorer la cellule(ligne,6)
                    STOCKDataGridView.Rows(ligne).Cells(5).Style.BackColor = Color.OrangeRed
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

SVP j'ai vraiment besoin de vos aides
[B]

[rv26t]

Bonjour,

Code :

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

1
2
 
            Me.STOCKBindingSource.AddNew()

sachant que je crois que le problème vient du code que j'ai met pour colorier des cellules :

Code :

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

                If STOCKDataGridView.Item(5, ligne).Value < STOCKDataGridView.Item(6, ligne).Value Then

Effectivement le AddNew ajoute une ligne vide, le test tombe donc sur des "null", il suffit de tester

Code :

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

                If Not IsDBNull(STOCKDataGridView.Item(5, ligne).Value) And Not IsDBNull(STOCKDataGridView.Item(6, ligne).Value) Then