Escribir y guardar en datagridview

[e_daniel316]

Hola,
tengo una aplicacion en vb.net con visualStudio 2010 y sql 2000.
En el tengo un datagridview donde escribo y guardo los datos al hacer click en un boton.
Cuando tengo una sola fila guarda bien pero cuando son mas sale un el error:

"El índice estaba fuera del intervalo. Debe ser un valor no negativo e inferior al tamaño de la colección.
Nombre del parámetro: index"

graba la primera fila y elimina las demas.

este es mi codigo: (EL ERROR SALE EN LA SEGUNDA LINEA)

Código:

For j = cantRegistros To Datagridview1.Rows.Count - 1
            If Datagridview1.Rows(j).Cells(1).Value Is DBNull.Value Then
                MAN = ""
            Else
                MAN = Datagridview1.Rows(j).Cells(1).Value
                ' MessageBox.Show(MAN)
            End If
            If Datagridview1.Rows(j).Cells(2).Value Is DBNull.Value Then
                T_HORA = ""
            Else
                T_HORA = Datagridview1.Rows(j).Cells(2).Value
                'MessageBox.Show(T_HORA)
            End If

            If String.IsNullOrEmpty(Datagridview1.Rows(j).Cells(0).Value.ToString) Then

             'AQUI HAGO EL INSERT
            End If
         
        Next

Ojala me puedan ayudar
gracias.

[alexg88]

Buenas,

¿Qué valor tiene cantRegistros? Lo más probable es que el error venga de ahí.

Un saludo.

[e_daniel316]

le agregue un do while Al principio y le quite el FOR y ahora no se cae al hacer el insert, pero sigue guardando solo la primera fila.
las variables en cada if son para almacenar el contenido de cada celda


Dim j As Integer = 0

Do While (j < DG104.Rows.Count - 1)

If DG104.Rows(j).Cells(1).Value Is DBNull.Value Then
NOM = ""
Else
NOM = DG104.Rows(j).Cells(1).Value
End If
If DG104.Rows(j).Cells(2).Value Is DBNull.Value Then
DOSIS1 = ""
Else
DOSIS1 = DG104.Rows(j).Cells(2).Value
End If
If DG104.Rows(j).Cells(3).Value Is DBNull.Value Then
VIA = ""
Else
VIA = DG104.Rows(j).Cells(3).Value
End If
If DG104.Rows(j).Cells(4).Value Is DBNull.Value Then
ULT_DOSIS = ""
Else
ULT_DOSIS = DG104.Rows(j).Cells(4).Value
End If
If DG104.Rows(j).Cells(5).Value Is DBNull.Value Then
DIAS_TRAT = ""
Else
DIAS_TRAT = DG104.Rows(j).Cells(5).Value
End If
If String.IsNullOrEmpty(DG104.Rows(j).Cells(0).Value. ToString)Then

'AQUI VA EL INSERT
End If


j = j + 1
Loop