如何使用Grid表中当前记录为高亮显示？

（原题：表格中数据删除问题.）
现我有一表格GRID1与数据表AA 绑定, GIRD1表结构如下:
ZDM
01
02
03
04
05
现在我在该表格中加入了一条命令让选定行显示高亮. 我现在想删除行02后高亮条落在03 上删除05 后高亮条落在上.请问高手这应怎么处理?要代码.......

---------------------------------------------------------------
*********Grid中当前记录为高亮显示：
如果是VFP8，无需代码就可实现，
只需修改Grid的HighlightStyle、HighlightBackColor和HighlightForeColor值即
可。
HighlightStyle设为2
HighlightBackColor设为“0,128,255”或你自定义一个喜欢的颜色
HighlightForeColor设为“255,255,255”或你自定义一个喜欢的颜色

如果是VFP6，需做如下：

1、在Form的Load事件中定义几个变量，代码如下：
PUBLIC cGRNO,cGRcol,nowrecno

2、在Form的Init事件中写如下代码：
cGRcol=0
cGRNO = RECNO()
for i=1 to 10
txtback1="thisform.grid1.column"+allt(str(i))+".text1.backcolor"
&txtback1=rgb(181,232,182)
txtback2="thisform.grid1.column"+allt(str(i))+".Dynamicbackcolor"
&txtback2="IIF(RECNO()=cGRNO,rgb(255,255,185),RGB(255,255,255))"
&txtback2="IIF(RECNO()=cGRNO,rgb(181,232,182),RGB(255,255,255))"
endf
thisform.grid1.refresh

3、在Form的AfterRowColChange事件中写如下代码：
LPARAMETERS nColIndex &&系统自带
cGRNO = RECNO()
if cGRcol>0 AND cGRcol!=thisform.grid1.activecolumn
Pa=allt(str(thisform.grid1.activecolumn))
txtback1="thisform.grid1.column"+Pa+".Dynamicbackcolor"
&txtback1="rgb(181,232,182)"
txtback2="thisform.grid1.column"+allt(str(cGRcol))+".Dynamicbackcolor"
&txtback2="IIF(RECNO()=cGRNO,RGB(255,255,185),RGB(255,255,255))"
&txtback2="IIF(RECNO()=cGRNO,RGB(181,232,182),RGB(255,255,255))"
endi
cGRcol=thisform.grid1.activecolumn
thisform.grid1.refresh()
----------------------------------------------------------------------
针对本题，在删除按钮中写入如下代码：
nowrecno=RECNO()
IF RECCOUNT()>0
IF nowrecno

1<reccount() abc="" append="" cgrcol="" cgrno="RECNO()" copy="" delete="" deleted()="" else="" endif="" for="" from="" go="" if="" not="" nowrecno="" to="" top="" zap="">0 AND cGRcol!=thisform.grid1.activecolumn   
2txtback2="thisform.grid1.column"+allt(str(cGRcol))+".Dynamicbackcolor"   
3&amp;txtback2="IIF(RECNO()=cGRNO,RGB(255,255,185),RGB(255,255,255))"   
4&amp;txtback2="IIF(RECNO()=cGRNO,RGB(181,232,182),RGB(255,255,255))"   
5endi   
6cGRcol=thisform.grid1.activecolumn   
7thisform.grid1.refresh()   
8ENDIF</reccount()>