pido su ayuda para resolver mi problema con busqueda incremental, filtro por la columna ng y conforme voy escribiendo van quedando los datos que coinciden con lo que escribo pero basta que le agregue una letra al texto a buscar desaparece todo los datos en el xbrowse
es decir si escribo:
A, encontro coinicidencias
AN, encontro coinicidencias
ANA, encontro coinicidencias
ANA M, encontro coinicidencias
ANA MA, encontro coinicidencias
ANA MAH no encontro coinicidencias y se desaparece todo el contenido en el xbrowse
[/img]
Code: Select all
oRs := TOleAuto():New( "ADODB.RecordSet" )
WITH OBJECT oRs
:ActiveConnection := oConnect
:Source := "SELECT Ruc,Ng,Di,Lo,Nf,Lf,Directi,codubi,TipIde,De, ubigeo,Dpto,Prov, Distri,Urb,Email,Te,modo, Codigo from Mcodi where codusu = '"+cUsuCod+"'"
:CursorLocation := adUseClient
:CursorType := adOpenStatic
:LockType := adLockOptimistic
:Open()
END
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
DEFINE DIALOG oDlg SIZE 750,300 PIXEL FONT oFont ;
TITLE "XBrowse Incremental Filters"
@ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
DATASOURCE oRs ;
COLUMNS "Codigo","Ng","RUC","Te","Di","Lo","Nf" ;
HEADERS "CODIGO" ;
,"RAZÓN SOCIAL" ;
,"NO. IDENT." ;
,"TELÉFONOS" ;
,"DIRECCIÓN" ;
,"LOCALIDAD" ;
,"DIR.ENT." ;
AUTOSORT CELL LINES NOBORDER
oBrw:lIncrFilter := .t.
oBrw:lSeekWild := .t.
oBrw:cFilterFld := "NG"
oBrw:nStretchCol := STRETCHCOL_WIDEST
@ 11,160 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 200,10 PIXEL ;
OF oDlg COLOR CLR_BLACK,CLR_YELLOW PICTURE '@!'
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED ON INIT ( oBrw:SetFocus(), .f. )