Búsqueda incremental en wbrowse - SOLUCIONADO vean solución
Posted: Mon Aug 20, 2007 3:34 pm
Hola:
Tengo el siguiente código:
Mi consulta es la siguiente:
Cómo puedo hacer para realizar una búsqueda incremental sobre el browse ya que este es un array obtenido de un objeto adodb.recordset?.
La idea es que yo escriba en el get y al presionar enter o cuando pierda el foco si detecta que hay datos en el get busque por aproximación en el browse y me posicione sobre el primer registro que coincida con la palabra encontrada. La idea es que si coloco AB se posicione sobre el primer registro que comienza con AB.
Esto lo hago sin problemas al realizar un browse directamente a un .DBF. Nunca lo he realizado en un array.
David Lagos S.
Coquimbo-Chile
P.D:René, tu blog está excelente. Felicitaciones.
Adjunto una imagen
Tengo el siguiente código:
Code: Select all
FUNCTION BuscarClientes( oParent)
LOCAL oDlg, oBrw, oBusqueda, cBusqueda, aResultado
aResultado:=Sql("SELECT rut,nombre,ciudad,email FROM BASEDEDATOS.CLIENTES ORDER BY nombre")
IF aResultado[1]
IF aResultado[3]:RecordCount>0
aResultado[3]:MoveFirst()
DEFINE DIALOG oDlg RESOURCE "BUSCARCLIENTES"
REDEFINE LISTBOX oBrw ;
FIELDS Str(aResultado[3]:Fields(0):value,0), ;
aResultado[3]:Fields(1):value, ;
aResultado[3]:Fields(2):value, ;
aResultado[3]:Fields(3):value ;
ID 102;
FIELDSIZES 80, 250, 100, 250 ;
HEADERS "R.U.T.","Razón Social","Ciudad","email" OF oDlg
oBrw:bLogicLen := { || aResultado[3]:RecordCount }
oBrw:bGoTop := { || aResultado[3]:MoveFirst() }
oBrw:bGoBottom := { || aResultado[3]:MoveLast() }
oBrw:bSkip := { | nSkip | Salto( aResultado[3], nSkip ) }
oBrw:cAlias := "ARRAY"
REDEFINE BUTTON ID 301 OF oDlg ACTION ( oDlg:bValid:={ || .T.}, oDlg:End()) ;
CANCEL
ACTIVATE DIALOG oDlg CENTER VALID .F.
ELSE
MsgStop( "No existen Clientes en el Maestro", "Error")
ENDIF
aResultado[3]:Close()
aResultado[2]:Close()
ENDIF
RETURN NIL
Cómo puedo hacer para realizar una búsqueda incremental sobre el browse ya que este es un array obtenido de un objeto adodb.recordset?.
La idea es que yo escriba en el get y al presionar enter o cuando pierda el foco si detecta que hay datos en el get busque por aproximación en el browse y me posicione sobre el primer registro que coincida con la palabra encontrada. La idea es que si coloco AB se posicione sobre el primer registro que comienza con AB.
Esto lo hago sin problemas al realizar un browse directamente a un .DBF. Nunca lo he realizado en un array.
Saludos y mil graciasHe intentado esto para poder obtener los datos seleccionados en el browse al presionar un botón o hacer doble click sobre el registro:
Code: Select all
nPos:=oBrw:nAt //==>retorna NIL nPos:=oBrw:nRowPos //==> retorna el registro donde estoy MsgInfo( oBrw:aArray[1,1] //hace que mi aplicación se cuelgue. No muestra ningún error. Simplemente se cuelga.
David Lagos S.
Coquimbo-Chile
P.D:René, tu blog está excelente. Felicitaciones.
Adjunto una imagen