FoxPro/Visual FoxPro - busqueda incremental

   
Vista:

busqueda incremental

Publicado por eduardo (14 intervenciones) el 19/03/2011 19:09:15
hola :

tengo un grid con una tabla de clientes ordenada por apellido .

en el load del form tengo este codigo :
USE (THISFORM.TABLA) ORDER INDAPE
SELECT (THISFORM.TABLA)
GO top



en el init del form

THISFORM.O_grid1.RecordSource=(THISFORM.TABLa)
THISFORM.Refresh

en el evento keypress del form tengo :

Lparameters nKeyCode, nShiftAltCtrl
Set Near On
Do Case
Case nKeyCode=127 &&BackSpace
Thisform.Busqueda=Left(Thisform.Busqueda,Len(Thisform.Busqueda)-1)
Seek Thisform.Busqueda
Case nKeyCode=29 &&Home
Go Top
Thisform.Busqueda=""
Case nKeyCode=23 &&End
Go Bottom
Thisform.Busqueda=""
Case nKeyCode>=32 And nKeyCode<=250 &&Cualquier letra
Thisform.Busqueda=Thisform.Busqueda+Chr(nKeyCode)
Seek Thisform.Busqueda
Otherwise
Thisform.Busqueda=""
Endcase

Set Near Off
Thisform.Grilla.Refresh

(busqueda es una propiedad delform )

este codigo lo copie de otro proyecto ,en el cual la busqueda la hace perfectamente .

yo en mi form veo los datos de la tabla perfectamente en el grid ordenados por apellido ,el tema es que cuando pulso una letra para que se posicione en el grid ,me sale una leyenda que el grid es de solo lectura .esto es cierto ,pero en el form del proyecto de donde copie este codigo ,efectivamente el grid esta como solo lectura y funciona perfectamente .no s ecual puede ser el error o que me puede estar faltando .desde ya gracias por la ayuda
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

busqueda incremental

Publicado por Flavio (1 intervención) el 26/04/2012 21:08:25
Tenes la propiedad del grid AllowCellSelection en .F. ?
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