problemas con el select y set filter!
Publicado por Juan Castro (9 intervenciones) el 12/11/2002 19:17:08
Hola!!
estoy teniendo unos inconvenientes que no encuentro solución.
tengo un form co un textbox y una grid.En el evento interactivechange del textbox tengo lo sig:
select usuario
cad=this.value
cad=alltrim(cad)
x=len(cad)
cad=upper(cad)
set filter to left(apellido,x)=cad
thisform.grid1.setfocus
thisform.text1.setfocus
thisform.refresh
A medida que escribo la gird se filtra automáticamente.Todo funciona ok!
Luego creé otro form con un pageframe, donde una de las page es igual al form que describí antes, y le puse (también en el evento interactivechange) el sig. código:
select usuario
cad=thisform.pageframe1.page1.text1.value
cad=alltrim(cad)
x=len(cad)
cad=upper(cad)
set filter to left(apellidop,x)=cad
thisform.pageframe1.page1.grid1.setfocus
thisform.pageframe1.page1.text1.setfocus
thisform.refresh
Y esto no filtra nada.Según veo el código es el mismo.
luego probé con un select:
select usuario
cad=this.value
cad=alltrim(cad)
x=len(cad)
cad=upper(cad)
select * from usuario where(left(apellidop,x)=cad)into table "auxiliar"
thisform.grid1.setfocus
thisform.text1.setfocus
thisform.refresh
Esto tampoco funciona, siempre me dice que la tabla ya existe y si deseo sobreescribirla, y la consulta se me abre en un browse, pero la necesito en el grid.
realmente agradecería su ayuda.
Hasta luego!
juan
estoy teniendo unos inconvenientes que no encuentro solución.
tengo un form co un textbox y una grid.En el evento interactivechange del textbox tengo lo sig:
select usuario
cad=this.value
cad=alltrim(cad)
x=len(cad)
cad=upper(cad)
set filter to left(apellido,x)=cad
thisform.grid1.setfocus
thisform.text1.setfocus
thisform.refresh
A medida que escribo la gird se filtra automáticamente.Todo funciona ok!
Luego creé otro form con un pageframe, donde una de las page es igual al form que describí antes, y le puse (también en el evento interactivechange) el sig. código:
select usuario
cad=thisform.pageframe1.page1.text1.value
cad=alltrim(cad)
x=len(cad)
cad=upper(cad)
set filter to left(apellidop,x)=cad
thisform.pageframe1.page1.grid1.setfocus
thisform.pageframe1.page1.text1.setfocus
thisform.refresh
Y esto no filtra nada.Según veo el código es el mismo.
luego probé con un select:
select usuario
cad=this.value
cad=alltrim(cad)
x=len(cad)
cad=upper(cad)
select * from usuario where(left(apellidop,x)=cad)into table "auxiliar"
thisform.grid1.setfocus
thisform.text1.setfocus
thisform.refresh
Esto tampoco funciona, siempre me dice que la tabla ya existe y si deseo sobreescribirla, y la consulta se me abre en un browse, pero la necesito en el grid.
realmente agradecería su ayuda.
Hasta luego!
juan
Valora esta pregunta


0