Grid con filtro

14/09/2004 - 23:30 por Federico | Informe spam

En un form tengo dos combos, un text y un grid. El grid
esta ligado a una tabla, la cual tiene un FILTER de
acuerdo a los datos ingresados en los combos y en el text
(date).
Si hago el FILTER directo en el cuadro de comando si
funciona, pero en el form, cuando pasa el control al grid
no me despliega nada
Que esta pasando?

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Alexander

15/09/2004 - 00:45 | Informe spam

le estas dando un refresh al form???

thisform.grid1.refresh() && para refrescar al grid
Thisform.refresh() &&para refrescar el formulario

espero que te sirva

Salu2 desde Maracay-Venezuela

TSU Alexander Jimenez
1° Estrella en VFP
Analista de Sistemas
Glassven, C.A
E-mail y MSN:

"Federico" escribió en el mensaje
news:23be01c49aa2$06e9edb0$
Mostrar la cita

Responder a este mensaje

#2 Federico

15/09/2004 - 21:49 | Informe spam

Si, estoy refrescando ambas cosas, pero sigue sin
aparecer la inmformación de la tabla

Mostrar la cita
mensaje
Mostrar la cita
text
Mostrar la cita
grid
Mostrar la cita

Responder a este mensaje

#3 Alexander

16/09/2004 - 13:18 | Informe spam

entonces algo debes de estar haciendo mal en el codigo... envia el codigo
para ver en donde radica el problema...

Salu2 desde Maracay-Venezuela

TSU Alexander Jimenez
1° Estrella en VFP
Analista de Sistemas
Glassven, C.A
E-mail y MSN:

"Federico" escribió en el mensaje
news:2e8701c49b5d$0f995f70$
Si, estoy refrescando ambas cosas, pero sigue sin
aparecer la inmformación de la tabla

Mostrar la cita
mensaje
Mostrar la cita
text
Mostrar la cita
grid
Mostrar la cita

Responder a este mensaje

#4 Federico

17/09/2004 - 17:45 | Informe spam

Es un form con dos combos y un text, en la propiedad
lostfocus del text (donde se introduce la fecha
requerida) tengo el siguiente codigo

IF DOW(this.Value) # 2
RETURN .F.
ENDIF

m.lun = ALLTRIM(STR(DAY(this.Value),2))
m.mar = ALLTRIM(STR(DAY(this.Value+1),2))
m.mie = ALLTRIM(STR(DAY(this.Value+2),2))
m.jue = ALLTRIM(STR(DAY(this.Value+3),2))
m.vie = ALLTRIM(STR(DAY(this.Value+4),2))
m.sab = ALLTRIM(STR(DAY(this.Value+5),2))
m.dom = ALLTRIM(STR(DAY(this.Value+6),2))

thisform.grid1.clmLunesN.headLunesN.Caption = m.lun+"N"
thisform.grid1.clmLunesE.headLunesE.Caption = m.lun+"E"
thisform.grid1.clmMartesN.headMartesN.Caption = m.mar+"N"
thisform.grid1.clmMartesE.headMartesE.Caption = m.mar+"E"
thisform.grid1.clmMiercolesN.headMiercolesN.Caption =
m.mie+"N"
thisform.grid1.clmMiercolesE.headMiercolesE.Caption =
m.mie+"E"
thisform.grid1.clmJuevesN.headJuevesN.Caption = m.jue+"N"
thisform.grid1.clmJuevesE.headJuevesE.Caption = m.jue+"E"
thisform.grid1.clmViernesN.headViernesN.Caption =
m.vie+"N"
thisform.grid1.clmViernesE.headViernesE.Caption =
m.vie+"E"
thisform.grid1.clmSabadoN.headSabadoN.Caption = m.sab+"N"
thisform.grid1.clmSabadoE.headSabadoE.Caption = m.sab+"E"
thisform.grid1.clmDomingoN.headDomingoN.Caption =
m.dom+"N"
thisform.grid1.clmDomingoE.headDomingoE.Caption =
m.dom+"E"

SELECT horas
SET ORDER TO 4 && CONTRATO+ITEM+DTOC(SEMANA)
SET FILTER TO
SET FILTER TO thisform.combo1.Value = horas.contrato AND ;
thisform.combo2.Value =
horas.item AND ;
thisform.txtFecha.Value =
horas.semana
WAIT WINDOW FILTER()
SEEK thisform.combo1.Value + thisform.combo2.Value + DTOC
(thisform.txtFecha.Value)

GO top
SET ORDER TO 2 && CONTRATO+ITEM+DTOC(SEMANA)+STR
(CATEGO,3)
thisform.grid1.Refresh()
thisform.Refresh()

el siguiente objeto despues del text es el grid que
deberia desplegar la información de la tabla de acuerdo
al filtro definido.
Si quito el filtro si me despliega la información de la
tabla, obviamente la tabla completa

Mostrar la cita
codigo... envia el codigo
Mostrar la cita
mensaje
Mostrar la cita
grid
Mostrar la cita

Responder a este mensaje

#5 Leonardo

22/09/2004 - 14:19 | Informe spam

Hola amigo ...

Ya Probaste con Set Key To This.value ??
Verifica la documentacion es excelente...

Es mejor de set filter...

Espero esto te sirva...

Programador T-101
Proxsimantente T-1000-MegaSly

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida