IF TYPE( 'Thisform.ActiveControl.name' ) = 'C' IF LOWER( Thisform.ActiveControl.BaseClass ) = 'grid' FOR EACH loColumn IN Thisform.ActiveControl.Columns IF loColumn.ColumnOrder = Thisform.ActiveControl.ActiveColumn loControl = EVALUATE( 'loColumn.' + locolumn.CurrentControl ) loControl.SetFocus() EXIT ENDIF ENDFOR ENDIF ENDIF