ferherpe
17 de Octubre del 2003

Hola a todos, resulta que estoy en pa帽ales en el entorno de programacion de visual foxpro, pero con ganas de aprender a usarlo.
Mi problema es el siguiente, no puedo hacer funcionar un filtro al activar un browse, si uso un seek o un locate funciona, pero si establesco el filtro no. Para mejor claridad anexo el codigo correspondiente:

SELECT tabla
GO top
*SET FILTER TO thisform.campoentrada21.Value=ini_estr.clave2
*set filter to substr(clave2,1)=thisform.campoentrada21.Value
LOCATE FOR thisform.campoentrada21.Value=ini_estr.clave2
on key label rightmouse keyboard chr(23)
browse nomodify noappend
if lastkey()=27
a=recno()
go a
endif
on key label rightmouse
Editando = .t.
thisform.show
thisform.habilitacampos

pp
17 de Octubre del 2003

Yo resuelvo esa cuesti贸n estableciendo de nuevo el controlsource del grid en funci贸n de si quiero que aparezca la l铆nea o que sea en blanco, m谩s o menos as铆:

Thisform.grid1.column1.controlsource="iif (expedien.numcliente=ncli, expedien.numero, '')"

manuel
17 de Octubre del 2003

nada como usar las instrucciones como lo dice el manual. aqui te mando la sintaxis del browse.
En el for esta la solucion de tu problema.


BROWSE
[FIELDS ListaCampos]
[FONT cNombreFuente [, nTama帽oFuente]]
[STYLE cEstiloFuente]
[FOR lExpresi贸n1 [REST]]
[FORMAT]
[FREEZE NombreCampo]
[KEY eExpresi贸n1 [, eExpresi贸n2]]
[LAST | NOINIT]
[LOCK nN煤meroCampos]
[LPARTITION]
[NAME NombreObjeto]
[NOAPPEND]
[NODELETE]
[NOEDIT | NOMODIFY]
[NOLGRID] [NORGRID]
[NOLINK]
[NOMENU]
[NOOPTIMIZE]
[NOREFRESH]
[NORMAL]
[NOWAIT]
[PARTITION nN煤meroColumna [LEDIT] [REDIT]]
[PREFERENCE NombrePreferencia]
[SAVE]
[TIMEOUT nSegundos]
[TITLE cTextoT铆tulo]
[VALID [:F] lExpresi贸n2 [ERROR cTextoMensaje]]
[WHEN lExpresi贸n3]
[WIDTH nAnchoCampo]
[WINDOW NombreVentana1]
[IN [WINDOW] NombreVentana2 | IN SCREEN]
[COLOR SCHEME nN煤meroEsquema]