[salahalmasry]

جرب الكود دة

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If DataGridView1.RowCount > 1 Then
Dim iTax As Decimal = 0
Dim iCos As Decimal = 0
Dim iSales As Integer = 0
For index As Integer = 0 To DataGridView1.RowCount - 1
iTax += Convert.ToDecimal(DataGridView1.Rows(index).Cells(0).Value)
iCos += Convert.ToDecimal(DataGridView1.Rows(index).Cells(1).Value)
iSales += Convert.ToInteger(DataGridView1.Rows(index).Cells(2).Value)
Next
Label2.Text = iTax
Label4.Text = iCos
Label6.Text = iSales
End If
End Sub