FoxPro/Visual FoxPro - Filtro por año

Hola

Tengo una tabla con fecha de ingreso

y quiero filtrar todos los alumnos que se matricularon en ese año.

el codigo que uso es el siguiente pero no me funciona.


IF LASTKEY()#27
_nAno = CTOD(Thisform.Text1.Value)
dfecha = cTod(Padl(_nAno,4,'0'))
year(dFecha)

Select nie,nom,ape from alumno WHERE Ing between dfecha AND dfecha INTO CURSOR resultado
Thisform.List1.RowSource = "resultado.nie,nom,ape"
ENDIF

cual será el error por el cual no hace el filtro.

Segun veo tu codigo al poner ctod obtienes una fecha no un año, te recomendo que tengas solo el año en la variable es decir 2012 y en el select pon la funcion year(campo fecha), es una idea.

Jose

Puedes filtrar tus datos de esta manera:
*--- manera 1
IF LASTKEY()#27
.......dfecha = CTOD(Thisform.Text1.Value)
.......Select nie,nom,ape from alumno WHERE Ing = YEAR(dfecha) INTO CURSOR resultado
.......Thisform.List1.RowSource = "resultado"
ENDIF
*
*--- Manera 2
IF LASTKEY()#27
.....dfecha = CTOD(Thisform.Text1.Value)
...... SET FILTER TO ing = YEAR(dfecha)
ENDIF
* De esta segunda manera debes tener cuidado cuando pongas SET FILTER TO

Aplico este codigo y me muestra el siguiente error.

Incompatibilidad entre el tipo de operador y tipo de operando.

IF LASTKEY()#27
dfecha = CTOD(Thisform.Text1.Value)

Select nie,nom,ape,ing from alumno WHERE Ing = YEAR(dfecha) INTO CURSOR resultado
Thisform.Grid1.RecordSource = "resultado.nie,nom,ape,ing"
ENDIF

escribo year(dfecha) antes de la sentencia SQL y
no me muestra error pero no me filtra.

esto quiere decir que thisform.text1.value ya tiene formato de fecha, entonces cambia esto:
IF LASTKEY()#27
dfecha = Thisform.Text1.Value

Select nie,nom,ape,ing from alumno WHERE Ing = YEAR(dfecha) INTO CURSOR resultado
Thisform.Grid1.RecordSource = "resultado"
ENDIF

Si le quito el CTOD al TEXT1 me muestra error.
Asi que escribo el siguiente codigo.


IF LASTKEY()#27
dfecha = CTOD(Thisform.Text1.Value)

Select nie,nom,ape,ing from alumno WHERE YEAR(Ing) = YEAR(dfecha) INTO CURSOR resultado
Thisform.Grid1.RecordSource = "resultado.nie,nom,ape,ing"
ENDIF

En este codigo no me muesta error pero no filtra los datos.