Discussion :

[Massigne]

Bonjour le forum j'ai se bout de code qui me permet de calculer le montant mensuel de chaque employé a partir du salaire de base
mais sa ne marche que pour le premier nom. comment corrigé ce problème

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
    Private Sub calculdatagridview()
 
 
 
 
        Try
            Dim facteur1 As Double
            Dim facteur2 As Double
            Dim indexcolfact1 As Integer
            Dim indexcolfact2 As Integer
 
            For R As Integer = 0 To dgvElementSalaire.Rows.Count - 1
 
                indexcolfact1 = dgvElementSalaire.Columns("NOMBRE").Index
                    indexcolfact2 = dgvElementSalaire.Columns("TAUX").Index
                    facteur1 = CType(Poinvirgule(dgvElementSalaire.Item(indexcolfact1, R).Value), Double)
                    facteur2 = CType(Poinvirgule(dgvElementSalaire.Item(indexcolfact2, R).Value), Double)
                    dgvElementSalaire.Item(dgvElementSalaire.Columns("MONTANT").Index, R).Value = Math.Round(facteur1 * facteur2)
 
            Next
        Catch ex As Exception
 
        End Try
 
        dgvElementSalaire.Refresh()
    End Sub