Thanks a lot.
Luis
>
>Thanks Fabio, just one question why should I Change This.Cajafecha2.Value with a variable?
>Luis
>
>
>Because VFP can reevaluate the property many times,
>and this is very slow
>
>

>CLEAR
>CREATE CURSOR myCursor ( f1 I)
>FOR k=1 TO 1000
>	INSERT INTO myCursor VALUES (RECCOUNT())
>NEXT
>INDEX ON f1 TAG f1
>x=CREATEOBJECT('myObject')
>x.myProperty	= 33
>* with a index
>x.AccessCount	= 0
>SELECT * INTO CURSOR TEMPORARY FROM myCursor WHERE F1=M.X.myProperty
>? "Accesses with Index :",m.x.AccessCount
>USE
>* without index
>x.AccessCount	= 0
>SELECT * INTO CURSOR TEMPORARY FROM myCursor WHERE F1+0 = M.X.myProperty
>? "Accesses without Index :",m.x.AccessCount
>
>DEFINE CLASS myObject AS Custom
>	myProperty = 0
>	AccessCount = 0
>	PROCEDURE myProperty_Access
>		this.AccessCount = m.this.AccessCount + 1
>		RETURN m.this.myProperty
>	ENDPROC
>
>ENDDEFINE
>