if llInterrupted MessageBox("The process was interrupted.") return endif>Is there any alternative command or technique instead of "cancel" command at the interrruptmessage procedure. Because "cancel" don't prevent the query it also quit the whole program. I want to cut only running query in case of necessity.
>cQryStr = "select * from customer where name like 'A%'" >cEscState = set("escape") > >set Escape on >ON ESCAPE DO interrruptmessage >&cQryStr >set Escape &cEscState > > > >***** >procedure interrruptmessage() > >if messagebox("To stop the query press 'OK', to continue press 'Cancel' button.", 1+32)=1 > messagebox("Query cancelled", 0+16) > cancel > return .F. >else > wait window "Query is continuing." nowait >endif >return .F. > >ENDPROC >