1 2 3 4 5 6 7 8 9 10 11
| Private Sub BtnSum_Click(sender As Object, e As EventArgs) Handles BtnSum.Click
Dim somme As Double
For x As Integer = 0 To DgvDevisClent.Rows.Count - 1
somme += CType(DgvDevisClent.Rows(x).Cells(4).Value, Double)
Next
somme = String.Format("{0:##,##0.000}", CDbl(somme.ToString))
DgvDevisClent.Rows.Insert(DgvDevisClent.CurrentRow.Index + 1, 1)
DgvDevisClent.CurrentCell = DgvDevisClent.Rows(DgvDevisClent.CurrentRow.Index + 1).Cells(0)
DgvDevisClent.CurrentRow.Cells(4).Value = somme
DgvDevisClent.Focus()
End Sub |
Partager