Two tips today:

1. A grid class should have the functionality to reposition the viewable portion of the grid to a better one after an order or filter is set:

*Grid.Refresh
local lcSel, lnRecs, lnCurRec

DoDefault()

lcSel=Select()
select (This.recordsource)
lnCurRec=recno()
count to lnRecs
locate record lnCurRec
if int(This.height - This.headerheight)/This.rowheight > lnRecs
	This.DoScroll(2)
endif
select (lcSel)

2. Do not spit into the wind.