LOCAL lnrecno *** If the grid's RecordSource has an index tag on this field *** We want make sure that as soon as we change its contents, *** The grid displays everything in the correct order *** First Check to see if we have changed this field IF INLIST( GETFLDSTATE( JUSTEXT( This.ControlSource ), This.Parent.Parent.RecordSource ), 2, 4 ) Thisform.LockScreen = .T. WITH This.Parent.Parent lnRecno = RECNO( .RecordSource ) *** Scroll Up one Page GO TOP IN ( .RecordSource ) .DoScroll(2) *** Scroll back down one page GO BOTTOM IN ( .RecordSource ) .DoScroll(3) *** Finally, go back to the original record GO lnRecno IN ( .RecordSource ) ENDWITH Thisform.LockScreen = .F. ENDIFMarcia