if my criteria searched is founded , the filter is ok , but if the criteria given no longer exist then my filter developes in blank
why happens that? i use fwh 13.01, could be that the problem?
my source code
- Code: Select all Expand view
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. )
link of the source code xbrowse.prg
https://www.dropbox.com/s/2gpxi1mxfayo4 ... e.prg?dl=0
thanks in advance