Probleme checkbox dans datagridview vb.net 2010

Fermé
bouloulou67 Messages postés 1 Date d'inscription mercredi 20 septembre 2006 Statut Membre Dernière intervention 12 mars 2015 - 12 mars 2015 à 13:21
Bonjour,

Je viens juste de commencer à programmer avec le VB.NET 2010. J'ai créer une modeste application pour le suivi des factures impayées. J'ai pu avec l'aide de tutos et la documentation à créer un formulaire de saisie avec les options élémentaires : Ajout, modification, suppression et recherche dans une base de données en MS ACCESS.

J'ai crée un DataGridView avec une colonne checkbox pour la sélection. Et pour m'assurer que j'ai choisi le bon enregistrement j'affiche dans un messagebox le montant de la facture concernée seulement, il ne s'affiche que le montant de la première ligne du DataGridView et encore problème d'index.

Voici le scripte que j'ai pu adapté

Private Sub DataGridView2_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As EventArgs) Handles DataGridView2.CurrentCellDirtyStateChanged
        If DataGridView2.IsCurrentCellDirty Then
            DataGridView2.CommitEdit(DataGridViewDataErrorContexts.Commit)
        End If
    End Sub

    Private Sub DataGridView2_CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellValueChanged
        Dim montfacture = 0.0
        Try
            If e.ColumnIndex = 0 Then
                Dim checkCell As DataGridViewCheckBoxCell = CType(DataGridView2.Rows(e.RowIndex).Cells("selection"), DataGridViewCheckBoxCell)
                montfacture = dtt.Rows(rownum).Item("montant_facture")
                If checkCell.Value = 1 Then

                    MessageBox.Show("bono ")
                    MessageBox.Show(montfacture)

                ElseIf checkCell.Value = 0 Then
                    MessageBox.Show("no bono ")
                End If
                Me.str_totalencaiss.Text = Val("montfacture")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try
    End Sub 


Je demande de l'aide ou un coup de pouce pour terminer mon application et merci par avance.
ZERARGA Nour El Islam
A voir également: