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.
ENDIF
Marcia