在表格的mousemove事件中写：
PUBLIC    lnWhere,   lnRelRow,   lnRelCol,   lnX,   lcColumn   
      STORE   0   TO   lnWhere,   lnRelRow,   lnRelCol   

thisform.grdTable1.GridHitTest(nXCoord-this.Left-this.LeftColumn,nYCoord-this.Top ,@lnWhere,@lnRelRow,@lnRelcol)
THISFORM.grdTable1.ACTIVATECELL(lnRelRow,lnRelCol)  
thisForm.grdTable1.SetAll("DynamicBackColor","IIF(this.ActiveRow=RECNO( ), RGB(255,255,0), RGB(0,255,255))", "Column")
this.Refresh
不过，这个东西在表格内好像反应很慢，而在垂直滚动条上反应蛮快的。不知问题在哪里

基本如此.您的代码很复杂,我暂时还没有办法看懂,只能慢慢研究.
但是,我的意思是:点击"向上,向下....."按钮,右面的三角形光标移动到哪里,那一行的颜色起变化.
请您费心再考虑一下.

这个呀，直接设置下面的属性不是就可以解决了吗？、
highlightstyle=1
highlightbackcolor=""
highlightforecolor=""

我以前研究过这个问题,我是这么解决的.
在grid的afterRowcolchange事件里,更改dynamicbackcolor属性.
so easy.

在每个命令中增加
thisform.grid1.SetFocus
thisform.grid1.ActivateCell(RECNO(),1)
thisform.grid1.SetAll("DynamicBackColor", "IIF(thisform.grid1.ActiveRow=RECNO( ), RGB(0, 0, 128) , RGB(255,255,255))", "Column")

这下应该满足你的要求了

楼上几位兄弟说的是：在表格中要去点击一下，才会出现颜色改变。而楼主的要求并不是这样。

高手也!!!!!!!!!!!!!!