>Is there a better way to refresh the grid display?
>
>>>I was doing that but in a local variable. Changing to a form property did not make a difference. I did notice that if I set break points, the record pointer stays on the selected record. I cannot seem to pin-point where or what is moving the record pointer.
>>>

>>>*clmAddDate.header1.click
>>>LOCAL lnRec, lsOrder, lnColor
>>>STORE "" to lsOrder, lnColor
>>>lnRec = RECNO()
>>>
>>>* tag is the field name
>>>lsOrder=ThisForm.mGetTag(This.Tag)
>>>lnColor = This.ForeColor
>>>* get current text color
>>>IF lnColor = RGB(128,0,128)	&& purple color
>>>     lnColor = RGB(0,0,0) && black color
>>>     SET ORDER TO
>>>ELSE
>>>     WITH This.Parent.Parent
>>>          IF TAGNO(lsOrder)>0 && This index already exists (assume simple indexes tagname=fieldname)
>>>	SET ORDER TO (lsOrder)
>>>          ENDIF && TAGNO(
>>>          lnColor = RGB(128,0,128)	&& purple color
>>>          .clmUserId.header1.ForeColor = RGB(0,0,0)
>>>          .clmEmpId.header1.ForeColor = RGB(0,0,0)
>>>          .clmFullName.header1.ForeColor = RGB(0,0,0)
>>>          .clmOrg.header1.ForeColor = RGB(0,0,0)
>>>          .clmClasses.header1.ForeColor = RGB(0,0,0)
>>>          .clmCity.header1.ForeColor = RGB(0,0,0)
>>>          .clmBldg.header1.ForeColor = RGB(0,0,0)
>>>          .clmDates.header1.ForeColor = RGB(0,0,0)
>>>     ENDWITH
>>>ENDIF && lnColor = RGB(
>>>This.ForeColor = lnColor
>>>This.Parent.Parent.Refresh()
>>>
>>>GOTO lnRec
>>>This.Parent.Parent.clmAddDate.SetFocus
>>>

>>>
>>>>Actually, I looked at my 'resetgridorder' base method that I wrote many years ago and still use in all places. For some reason (maybe the same as in this thread) I stored recno() in variable before SET ORDER, so ...
>>
>>I would suspect that
>>
>>This.Parent.Parent.Refresh()
>>
>>may somehow change the record pointer.

May be setting focus would be enough - I'm not sure. If you comment out the refresh, would it work?

Also try to wrap this code in LockScreen = .t. and .f. - see if this helps a bit.