>local loColumn, lcRGBSelectedItem
>lcRGBSelectedItem = "RGB("+substr(rgbscheme(1,7),at(",",rgbscheme(1,7),3)+1)
>
>FOR EACH loColumn IN this.Columns
>WITH m.loColumn
> .DynamicBackColor = ;
> "IIF(RECNO()==this.nrecno,"+;
> lcRGBSelectedItem + ",RGB(255,255,255))"
> .DynamicForeColor = ;
> "IIF(RECNO()==this.nrecno,"+;
> "RGB(255,255,255),RGB(0,0,0))"
> .Setall("BackColor",EVAL(lcRGBSelectedItem),"textbox")
> .Setall("ForeColor",RGB(0,0,0),"textbox")
> .SetAll("SelectedBackColor",;
> EVAL(lcRGBSelectedItem),"textbox")
> .SetAll("SelectedForeColor",;
> RGB(255,255,255),"textbox")
>ENDWITH
>ENDFOR
>
>How could I make this code make all columns having fontunderline = .T. appear in blue color (RGB(0,0,255)?

I think those Setalls are disturbing your colors, you may have to remove them or overwrite them, maybe, with individual column colors...I think that's what you mean?