Visual Basic para Aplicaciones - MsFlexGrid

Life is soft - evento anual de software empresarial
 
Vista:

MsFlexGrid

Publicado por Lis (1 intervención) el 20/09/2007 00:33:22
Hola! Tengo un formulario con un control msflexgrid y al hacerle ENTER sobre una de sus filas, quiero que automaticamente pase esos datos de la fila a cajas de texto de un segundo formulario.....COMO SE PUEDE HACER CON EL ENTER? Espero que me respondan pronto! Graciass!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:MsFlexGrid

Publicado por VICTOR (49 intervenciones) el 24/09/2007 23:27:42
PRIMERO DEBES DE ATRAPAR EL ENTER

Private Sub FlexGrid_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then
vbF = FlexGrid.Row ' Para saber en que fila estas
vbCol1= FlexGrid.TextMatrix(vbF,0) ' Valor Columna uno
vbCol2= FlexGrid.TextMatrix(vbFila,0) 'Valor Columna Dos
vbCol3= FlexGrid.TextMatrix(vbFila,0) Valor Columna Tres

CARGAMOS EL VALOR AL SIGUIENTE FORMULARIO
Form2.Text1.Text= vbCol1
Form2.Text2.Text= vbCol2
Form2.Text3.Text= vbCol3
End If
End Sub

ESPERO TE SIRVA, BYE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:MsFlexGrid

Publicado por VICTOR (49 intervenciones) el 24/09/2007 23:31:13
PRIMERO DEBES DE ATRAPAR EL ENTER

Private Sub FlexGrid_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then
vbF = FlexGrid.Row ' Para saber en que fila estas
vbCol1= FlexGrid.TextMatrix(vbF,0) ' Valor Columna uno
vbCol2= FlexGrid.TextMatrix(vbFila,1) 'Valor Columna Dos
vbCol3= FlexGrid.TextMatrix(vbFila,2) Valor Columna Tres

CARGAMOS EL VALOR AL SIGUIENTE FORMULARIO
Form2.Text1.Text= vbCol1
Form2.Text2.Text= vbCol2
Form2.Text3.Text= vbCol3
End If
End Sub

ESPERO TE SIRVA, BYE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar