LPARAMETERS nColIndex local lnRecno, lcKeyValue, lcOldSetNear, lcLetter, llSearchAgain, lc4Letters llSearchAgain = .f. lcOldSetNear = set('near') lnRecno=recno('BldMstr') select LenderView if thisform.lJustSearched and this.nCurRec=m.lnRecno goto thisform.nLastRecord && Last record, which was selected in Search dialog thisform.KeyValue="" thisform.grdLender.refresh() * thisform.grdLender.setfocus() else lcKeyValue = iif(!empty(BldMstr.LName) ; and !isnull(BldMstr.LName),BldMstr.LName,substr(BldMstr.OldValue,8)) lc4Letters = left(m.lcKeyValue,4) lcKeyValue = left(m.lc4Letters,1) if thisform.KeyValue<> m.lcKeyValue thisform.KeyValue= m.lcKeyValue lcLetter=thisform.KeyValue requery() thisform.grdLender.refresh() llSearchAgain = .t. endif if thisform.cLastFour<>m.lc4Letters llSearchAgain = .t. thisform.cLastFour=m.lc4Letters endif endif if !isnull(BldMstr.LName) and m.llSearchAgain set near on seek m.lc4Letters if m.lcOldSetNear= "OFF" set near off endif endif select BldMstr with this * .colLName.ReadOnly=.t. * .parent.GrdHglt1.Highlight_Row() .statusbartext=space(20)+"Record "+ ; transform(m.lnRecno)+ ; " of "+transform(thisform.nRecords)+' in BldMstr' if .nCurRec<>recno('BldMstr') thisform.navstand.navupdate() thisform.lJustSearched=.f. endif endwith thisform.grdLender.SetFocus() this.SetFocus() this.colLender.ReadOnly=left(BldMstr.Lender,4)<>'MISC' dodefault(m.nColIndex)I switched from GridHighlighter to Highlighted class, but the problem persists...