Agregar y eliminar registros en un mshflexgrid

[juanutcm]

a continuacion les pongo una parte del codigo:

esta parte pasa la materia seleccionada a el otro mshflexgrid:

Dim intContadorRenglonesGridMateriasAlumno As Integer 'Variable tipo entera que contendra el numero de renglones existenets en el grid de materias de alumnos
Dim intContadorRenglonesGridMaterias As Integer 'Variable contenedora del numero de renglones del grid de materias
Dim intContadorRenglonesVacios As Integer 'Variable que contendra la cantidad de renglones vacios
Dim intRenglonActual As Integer 'Variable contenedora del numero de renglon actual del grid de materias

intContadorRenglonesGridMateriasAlumno = 0 'Inicializar variable
intContadorRenglonesGridMaterias = 0 'Inicializar variable
intContadorRenglonesVacios = 0 'Inicializar variable
intRenglonActual = 0 'Inicializar variable

intContadorRenglonesGridMateriasAlumno = dgdMateriasAlumno.Rows 'Inicializar variable
intContadorRenglonesGridMaterias = dgdMaterias.Rows 'Inicializar variable
intRenglonActual = dgdMaterias.Row 'Inicializar variable

For x = 1 To (intContadorRenglonesGridMaterias - 1) 'Hacer barrido para verificar renglones vacios
If dgdMaterias.RowHeight(x) = 0 Then 'Validar renglon actual vacio
intContadorRenglonesVacios = intContadorRenglonesVacios + 1 'Incrementar el contador en uno
End If 'Fin de validar renglon actual vacio
Next x 'Fin de hacer barrido para verificar renglones vacios
If intContadorRenglonesVacios <> (intContadorRenglonesGridMaterias - 2) Then 'Validar el estado del grid
'INICIO DE OPTIMIZAR CÓDIGO
If dgdMaterias.RowSel <> 0 Then 'Validar si hay renglones seleccionados
'INICIO DE OPTIMIZAR CÓDIGO
If intContadorRenglonesGridMateriasAlumno = 2 Then 'Validar el estado del grid de materias de alumno
intContadorRenglonesGridMateriasAlumno = intContadorRenglonesGridMateriasAlumno - 1 'Decrementar en uno el contador de renglones de materias del alumno
Else
intContadorRenglonesGridMateriasAlumno = intContadorRenglonesGridMateriasAlumno - 1 'Decrementar en uno el contador de renglones de materias del alumno
End If 'Fin de validar el estado del grid de materias de alumno
dgdMateriasAlumno.AddItem "" 'Agregar nuevo renglon al grid de materias de alumnos
dgdMateriasAlumno.TextMatrix(intContadorRenglonesG ridMateriasAlumno, 1) = (dgdMaterias.TextMatrix(dgdMaterias.Row, 1)) 'Asignar el contenido del grid de materias del grupo al renglon seleccionado del grid de materias de alumnos
dgdMateriasAlumno.TextMatrix(intContadorRenglonesG ridMateriasAlumno, 2) = (dgdMaterias.TextMatrix(dgdMaterias.Row, 2)) 'Asignar el contenido del grid de materias del grupo al renglon seleccionado del grid de materias de alumnos
dgdMateriasAlumno.TextMatrix(intContadorRenglonesG ridMateriasAlumno, 3) = dgdMaterias.Row 'Asignar el contenido del grid de materias del grupo al renglon seleccionado del grid de materias de alumnos
dgdMateriasAlumno.TextMatrix(intContadorRenglonesG ridMateriasAlumno, 4) = (dgdMaterias.TextMatrix(dgdMaterias.Row, 5)) 'Asignar el contenido del grid de materias del grupo al renglon seleccionado del grid de materias de alumnos
dgdMaterias.RowHeight(dgdMaterias.Row) = 0 'Borrar del grid de materias del grupo el registro pasado al grid de materias del alumno
dgdMaterias.Row = 0 'Posicionar el cursor al inicio de la lista de materias
dgdMateriasAlumno.Row = 0 'Inicializar el renglon para posterior validacion
dgdMateriasAlumno.Enabled = True 'Habilitar control
'FIN DE OPTIMIZAR CÓDIGO
Else
'INICIO DE OPTIMIZAR CÓDIGO
MsgBox "Es necesario seleccionar un registro", vbCritical + vbOKOnly, "SICE" 'Enviar mensaje de error
'FIN DE OPTIMIZAR CÓDIGO
End If 'Fin de validar si hay renglones seleccionados
'FIN DE OPTIMIZAR CÓDIGO
Else
'INICIO DE OPTIMIZAR CÓDIGO
MsgBox "No se pueden cargar materias al alumno ya que todas las materias han sido cargadas", vbOKOnly + vbCritical, "SICE" 'Enviar mensaje de error
'FIN DE OPTIMIZAR CÓDIGO
End If 'Fin de validar el estado del grid