Steven,
Try the following:

lcRed   = LTRIM(STR(RGB(255,0,0)))
lcGreen = LTRIM(STR(RGB(0,255,0)))
lcBlue  = LTRIM(STR(RGB(0,0,255)))
lcBlack = LTRIM(STR(RGB(0,0,0)))

*-- pseudo code
*IIF(HighPriority, red, IIF(MediumPriority, blue, IIF(dmDate<DATE(), green, black)))

foreexpr = 'IIF(ALLTRIM(myscLoc.priority) == "High"  , ' + lcRed   + "," +;
           'IIF(ALLTRIM(myscLoc.priority) == "Medium", ' + lcBlue  + "," +;
           'IIF(myscLoc.dmdate < DATE()' + ","  + lcGreen + "," + lcBlack +;
           ')))'

THIS.SETALL("DynamicForeColor",foreexpr,"Column")

HTH
>Can someone help me with this code. I want to display the text in a row as green if there is no priority and date is past due. The following code leaves all the rows black.
>
>foreexpr = 'IIF(ALLTRIM(myscLoc.priority) == "High",' + LTRIM(STR(RGB(255,0,0))) + ',IIF(ALLTRIM(myscLoc.priority) == "Medium",' + ;
> LTRIM(STR(RGB(0,0,255))) + ',IIF(myscLoc.dmdate) <' + DTOC(Date()) + ',' + LTRIM(STR(RGB(0,255,0))) + ',' + LTRIM(STR(RGB(0,0,0))) +')))'
>
> THIS.SETALL("DynamicForeColor",foreexpr,"Column")