Visual Basic - copia de datos a unText box

Life is soft - evento anual de software empresarial
 
Vista:

copia de datos a unText box

Publicado por Javier (1 intervención) el 04/11/2007 19:07:20
Hola amigos tengo un formulario con tres textbox
por otro lado tengo un mshflexgrid con el siguiente código:

If KeyAscii = 13 Then
vbF = MSHFlexGrid1.Row ' Para saber en que fila estoy
vbCol0 = MSHFlexGrid1.TextMatrix(vbF, 0) ' Valor Columna cero
vbCol1 = MSHFlexGrid1.TextMatrix(vbFila, 1) 'Valor Columna uno
vbCol2 = MSHFlexGrid1.TextMatrix(vbFila, 2) 'Valor Columna dos

frmTabla1.Text1.Text = vbCol0
frmTabla1.Text2.Text = vbCol1
frmTabla1.Text3.Text = vbCol2
End If

Esto lo que haria es pasarme los datos de la fila que selecione en el mshflexgrid a los textbox pero me copia bien unicamente el text1, el text2 y el 3 me copia el nombre de las columnas del mshflexgrid (no los datos de la fila seleccionada)
Alguien me puede decir cual es mi error - Muchas gracias de antemano
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

RE:copia de datos a unText box

Publicado por fede (189 intervenciones) el 04/11/2007 22:00:26
If KeyAscii = 13 Then
vbF = MSHFlexGrid1.Row ' Para saber en que fila estoy
for vbf = 1 to MSHFlexGrid1.rows = -1
vbCol0 = MSHFlexGrid1.TextMatrix(vbF, 0) ' Valor Columna cero
vbCol1 = MSHFlexGrid1.TextMatrix(vbFila, 1) 'Valor Columna uno
vbCol2 = MSHFlexGrid1.TextMatrix(vbFila, 2) 'Valor Columna dos

frmTabla1.Text1.Text = vbCol0
frmTabla1.Text2.Text = vbCol1
frmTabla1.Text3.Text = vbCol2
next vbf
End If
fijate alomejor con sumarle uno a la variable vbf funcione pero yo siempre lo hago con un for
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