grid记录标识解决办法

grid记录标识
如何实现点击按钮上一条,下一条,并在grid中用颜色进行相应指示??
我用了
afterrowchange
thisform.cur_recn=recn()
this.setall( "dynamicbackcolor ", "iif(this.activerow=recno(),rgb(255,10,10),rgb(255,255,255)) ", "column ")
  gnActiveRec       =       RECNO()      
            THIS.Refresh    

button "上一个 "
thisform.grid1.setfocus
if   recno() <> 1
skip   -1
thisform.refresh
else
messagebox( "已经是第一条记录 ", "信息提示! ")
endif

button "下一个 "
if   eof()
messagebox( "已经是最后一条记录 ", "信息提示! ")
else  
skip   1
thisform.refresh
endif

但是点击下一个,那个三角的标记还是在原处,并且只能跳转到标记记录的下一个记录,上一个也是这样的情况,请问各位大侠如何解决阿~~

------解决方案--------------------------------------------------------
如果是VFP6:

在GRID的AfterRowColChange事件中，写入如下代码

LPARAMETERS nColIndex && 系统代码
SELECT (THIS.RecordSource)
Mcurrec=ALLTRIM(STR(RECNO())) && 获取当前所在记录号（行）
This.Setall( "DynamicBackColor ", 'IIF(RECNO()=&Mcurrec.,RGB(182,202,234),RGB(255,255,255)) ', "COLUMN ") && 设置当前行背景色，满足条件为非白色，不满足为白色
This.Refresh && 这个刷新必须要，不然不满足条件的记录所显示的高亮显示就不会退去