>WAIT "Option 1 = Make into OER AR"+CHR(13)+; > "Option 2 = OE Coord. Use Only"+CHR(13)+; > "Option 3 = Not Applicable"+CHR(13)+; > "Option 4 = For Information Only"+CHR(13)+; > "Option 5 = Previous AR"+CHR(13)+; > "Option 6 = REEF Needed"+CHR(13)+; > "Option 7 = Preliminary" WINDOW AT MROW(), MCOL() NOWAIT NOCLEAR >>And I have the WAIT CLEAR in the mouseexit
use OptionsDescriptions in 0 order by OptionID select OptionDescriptions lcOptionDesc = '' scan lcOption = m.lcOption + 'Option ' + transform(OptionID) + " = " + OptionDesc + chr(13) endscan thisform.cOptionsDesc = m.lcOptionand use this property in the wait window thisform.cOptionsDesc