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
x.AccessCount = 0
SELECT * INTO CURSOR TEMPORARY FROM myCursor WHERE F1=M.X.myProperty
? "Accesses with Index :",m.x.AccessCount
USE
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
