Ver Mensaje Individual
  #8 (permalink)  
Antiguo 07/12/2006, 16:58
Avatar de vbx3m
vbx3m
 
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Antigüedad: 20 años, 2 meses
Puntos: 1
Re: Cargar datos de un FlexGrid

Lo que puedes hacer es en el evento doble click recorres columna a columna y le asignas el valor Text a las cajas de texto, etiquetas o donde lo quieras colocar del formulario al que lo vas a enviar... Si lo que quieres es que al hacer doble click buscar esos registros en la DB para luego editarlos pues con una sentencia SQL realizas la busqueda...

Con este ejemplo recorres las columnas:

Código:
 
Private Sub MSFlexGrid1_DblClick()
'suponiendo que en form1 estan los controles que quieres enviar los datos
MSFlexGrid1.Col = 0
Form1.Text1.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 1
Form1.Text2.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
Form1.Text3.Text = MSFlexGrid1.Text
....
Si quieres realizar una busqueda:
Código:
Private Sub MSFlexGrid1_DblClick()
valor = MSFlexGrid1.Text
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM Tabla WHERE (campo='" & valor & "')", conn, adOpenStatic, adLockOptimistic, adCmdText
form1.text1.text= rs!campo1
form1.text2.text= rs!campo2
form1.text3.text= rs!campo3
....
'Si quieres hacer la busqueda directamente sin utilizar variables
'rs.Open "SELECT * FROM Tabla WHERE (campo='" & MSFlexgrid1.Text & "')", conn, adOpenStatic, adLockOptimistic, adCmdText
__________________
ホルヘ・ラファエル・マルティネス・レオン