在9.0,直接设置GRID 的HighlightStyle (取2或3),HighlightBackColor和HighlightForeColor 属性即可（不用写代码的)
然后在GRID 的init中加入如下代码（只执行一次)
LOCAL i
    FOR i=1 TO this.ColumnCount
        this.Columns(i).text1.BackColor=this.HighlightBackColor
        this.Columns(i).text1.ForeColor=this.HighlightForeColor
    ENDFOR
    this.SelectedItemBackColor=this.HighlightBackColor
而你写在AFTERROWCOLCHANGE里,程序就会多次反复执行。浪费机时.

[ 本帖最后由 bccn0906 于 2013-10-31 10:19 编辑 ]

呵呵，知道的，就是你的代码我才知道有焦点行加亮显示颜色。

对的，这个功能常用。不错。