CLOSE ALL CLEAR ALL CREATE TABLE Tab1 (Field1 C(3)) INDEX ON Field1 TAG Field1 INSERT INTO Tab1 VALUES("ABC") INSERT INTO Tab1 VALUES("123") INSERT INTO Tab1 VALUES("XYZ") USE o = CREATEOBJECT("cTest", "TAB1.DBF") ? o.Find1("ABC") ? o.Find2("ABC") *---------------------------- DEFINE CLASS cTest AS Custom cField1 = SPACE(3) cDBF = "" PROCEDURE Init LPARAMETERS tcDBF THIS.cDBF = tcDBF ENDPROC PROCEDURE Find1 LPARAMETERS tcValue USE (THIS.cDBF) ALIAS aTab THIS.cField1 = tcValue WITH THIS LOCATE FOR Field1 = .cField1 ENDWITH USE RETURN FOUND() ENDPROC PROCEDURE Find2 LPARAMETERS tcValue THIS.cField1 = tcValue SELECT * FROM (THIS.cDBF) WHERE Field1 = THIS.cField1 RETURN (_TALLY > 0) ENDPROC ENDDEFINE *----------------------------
>WITH This > ... > LOCATE FOR Field1 = This.cField1 > ... >ENDWITH >