bouloulou67
Messages postés1Date d'inscriptionmercredi 20 septembre 2006StatutMembreDernière intervention12 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