For Each dgvr As DataGridViewRow In Me.Dgview2.Rows

dgvr.Cells(0).Value = 0

DIM I AS INTEGER
FOR I = 1 TO Dgview2.ColumnCount - 1

If not dgvr.Cells(i).Value Is Nothing Then
''' no es vacio '''

dgvr.Cells(0).Value + =1

End If

NEXT

Next