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.Now I personally do not believe that the behaviour of RELEASE in this case is proper, but it is the way it is.
>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 >>>> >>>>>>>>