Agregar y eliminar registros en un mshflexgrid

[juanutcm]

Hola chicos un saludo a todos:

Tengo un problema que no he conseguido solucionar y espero poder recibir ayuda de ustedes... tengo dos controles MSHFlexGrid (MS1 y MS2) el MS1 lo lleno mediante una consulta(pero no esta relacionada solo lo uso como contenedor) , bueno tengo 4 botones (PasarUna,PasarTodas,RegresarUna,RegresarTodas) en los botones de PasarUna y PasarTodas no hay mucho problema ya que en el de PasarUna solo hago que el contenido de todo el renglon seleccionado se agregue a el renglon libre en el MS2 ademas de agregar como campo temporal en el MS2 el numero de renglon seleccionado en el MS1 para posterior uso y el renglon seleccionado en el MS1 se borra (utilizo la propiedad Rowheight para conseguir esto)y asi como en el de PasarTodas solo hago un ciclo , ahora al momento de intentar regresar un registro del MS2 al MS1 con el boton RegresarUna no me permite modificar la propiedad RowHeight del renglon deseado buscado en el MS1 con el contenido del campo temporal creado en el MS2.... intente primero seleccionar el renglon pero tampoco me permite hacerlo.... alguna sugerencia espero haberme explicado de otro modo aqui estoy para que podamos resolver esto juntos ... bueno de antemano muchas gracias por las sugerencias ...

[juanutcm]

Bien ya lo resolvi ..jejeje

[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