1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub DView_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DView.CellClick
For Each row As DataGridViewRow In DView.Rows
Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("checkBoxColumn").Value)
If isSelected Then
For i As Integer = 0 To Me.DView.Rows.Count - 1
Dim total As Integer = 0
Me.DView(5, i).Value = Format(Me.DView(5, i).Value * total, "0.00")
Me.DView(7, i).Value = Format(Me.DView(7, i).Value * total, "0.00")
Me.DView(8, i).Value = Format(Me.DView(8, i).Value * total, "0.00")
Me.DView(9, i).Value = Format(Me.DView(9, i).Value * total, "0.00")
Me.DView(10, i).Value = Format(Me.DView(10, i).Value * total, "0.00")
Me.DView(11, i).Value = Format(Me.DView(11, i).Value * total, "0.00")
Me.DView(12, i).Value = Format(Me.DView(12, i).Value * total, "0.00")
Me.DView(12, i).Value = Format(Me.DView(12, i).Value * total, "0.00")
Me.DView(13, i).Value = Format(Me.DView(13, i).Value * total, "0.00")
Me.DView(14, i).Value = Format(Me.DView(14, i).Value * total, "0.00")
Me.DView(15, i).Value = Format(Me.DView(15, i).Value * total, "0.00")
Me.DView(16, i).Value = Format(Me.DView(16, i).Value * total, "0.00")
Next
End If
Next
End Sub |
Partager