Hola a todos tengo el codigo que acontinuacion presento lo que hago en este codigo es que al momento de dar clic en un boton llamado pasartodas se llama a este procedimiento y pasa del grid1 a el grid2, previo a esto si el grid2 ya tiene registros cargados en el grid1 se deben de ocultar para posterior uso y de ahi que sale el contador1, bien el codigo funciona correctamente si el grid 2 no contiene registros cargados de lo contrario me marca un error de indice... me gustaria saber si estoy cometiendo algun error o si es que debo de hacerlo de alguna otra manera....
Desde ahora muchas gracias por sus aportaciones...
A continuacion el Codigo
Código:
Me.Cursor = Cursors.WaitCursor 'Inicializar cursor de la aplicacion
contador1 = 0
For contador = 0 ToMe.dgdMaterias.Rows.Count - 1
If Me.dgdMaterias.Rows(contador).Visible = FalseThen
contador1 = contador1 + 1
EndIf
Next
If Me.dgdMaterias.Rows.Count <> contador1 Then
For contador1 = contador1 ToMe.dgdMaterias.Rows.Count - 1
Me.dgdMaterias.CurrentCell = Me.dgdMaterias.Rows(contador1).Cells(1)
renglon = Me.myDataMateriasAlumno.NewRow
With renglon
.Item("ClaveMateria") = Me.dgdMaterias.CurrentRow.Cells(1).Value
.Item("NombreMateria") = Me.dgdMaterias.CurrentRow.Cells(2).Value
.Item("IdMateria") = Me.dgdMaterias.CurrentRow.Cells(0).Value
EndWith
Me.myDataMateriasAlumno.Rows.Add(renglon)
indiceRenglonGrid = Me.dgdMaterias.CurrentRow.Index
Me.dgdMaterias.CurrentCell = Nothing
Me.dgdMaterias.Rows(indiceRenglonGrid).Visible = False
Next
Else
MsgBox(mdlMensajesPublicos.ObtenerMensajeAplicacion("ER101"), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, mdlMensajesPublicos.ObtenerMensajeAplicacion("ER000")) 'Obtener el mensaje y enviar mensaje
EndIf
Me.Cursor = Cursors.Default 'Inicializar cursor de la aplicacion