LOCAL loObject >loObject = CREATEOBJECT("Custom") >AddProperty(m.loObject,"icName") >m.loObject.icName = "Jim Nelson" > >CREATE CURSOR c_SomeCursor (cField1 c(10)) >INSERT INTO c_SomeCursor (cField1) VALUES ("Jim Nelson") >INSERT INTO c_SomeCursor (cField1) VALUES ("Mike Yearwood") > >xx = m.loObject.icName >SET FILTER TO cField1 = m.xx >BROWSE > >RELEASE m.loObject > >CLEAR >DISPLAY MEMORY LIKE loObject >WAIT WINDOW "Hold down the shift key to see that the object is really gone." > >*Do a record movement and it will crash. >GO TOP && BROWSE etc. >>
>>LOCAL loObject >>loObject = CREATEOBJECT("Custom") >>AddProperty(m.loObject,"icName") >>m.loObject.icName = "Jim Nelson" >> >>CREATE CURSOR c_SomeCursor (cField1 c(10)) >>INSERT INTO c_SomeCursor (cField1) VALUES ("Jim Nelson") >>INSERT INTO c_SomeCursor (cField1) VALUES ("Mike Yearwood") >> >>SET FILTER TO cField1 = m.loObject.icName >>BROWSE >> >>RELEASE m.loObject >> >>CLEAR >>DISPLAY MEMORY LIKE loObject >>WAIT WINDOW "Hold down the shift key to see that the object is really gone." >> >>*Do a record movement and it will crash. >>GO TOP && BROWSE etc. >>>>
>>>>>SELECT mstr >>>>>LOCATE FOR BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE >>>>>IF FOUND() >>>>>SET FILTER TO BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE >>>>> >>>>>>>>>>