>Do CASE >> Case type("&l_fldname") = "N" >> lcsub = ALLTRIM(STR(&l_fldname)) >> l_fldlen = l_fldlen + LEN(lcsub) >> * ThisForm.grdsearch.columns(l_numfld).removeobject('_editbox1') >> Case type("&l_fldname") = "L" >> lcsub = IIF(&l_fldname,"T","F") >> l_fldlen = l_fldlen + 1 >> * ThisForm.grdsearch.columns(l_numfld).removeobject('_editbox1') >> Case type("&l_fldname") = "C" or type("&l_fldname") = "M" >> l_fldlen = l_fldlen + LEN(&l_fldname) >> * ThisForm.grdsearch.columns(l_numfld).currentcontrol='_editbox1' >> case type("&l_fldname") = "U" >> dimension Error_Arry(1) >> Error_Arry(1) = l_fldname >> clear typeahead >> MainMenu.UANMessageBox("SM-22", @Error_Arry) >> return .f. >> case type("&l_fldname") = "D" >> *ThisForm.grdsearch.columns(l_numfld).removeobject('_editbox1') >> Endcase > >>