有一个成绩表，有姓名和语文、数学、英语、物理、化学、生物六门科目的成绩这七个字段。把所有不及格的分数全部用红色突出显示

有没搞错啊。这么初级的东西都没人来帮啊。

我用7个句子能解决问题，但是这7个句子重复的部分很多。想找高手给压缩成一个两三句的循环。

oGrd = THISFORM.grid1
oGrd.Columns(2).dynamicforecolor =  "IIF(语文<60, RGB(255,0,0),rgb(0,0,0))"
oGrd.Columns(3).dynamicforecolor =  "IIF(数学<60, RGB(255,0,0),rgb(0,0,0))"
oGrd.Columns(4).dynamicforecolor =  "IIF(英语<60, RGB(255,0,0),rgb(0,0,0))"
oGrd.Columns(5).dynamicforecolor =  "IIF(物理<60, RGB(255,0,0),rgb(0,0,0))"
oGrd.Columns(6).dynamicforecolor =  "IIF(化学<60, RGB(255,0,0),rgb(0,0,0))"
oGrd.Columns(7).dynamicforecolor =  "IIF(生物<60, RGB(255,0,0),rgb(0,0,0))"
上面就是我的代码，但是当我想只用一个循环的时候却不行。
oGrd = THISFORM.grid1
FOR i = 2 TO oGrd.ColumnCount
      oGrd.Columns(i).dynamicbackcolor = "IIF(oGrd.Columns(i).header1.caption<60, RGB(255,0,0), RGB(255,255,255))"
ENDFOR
 把语文、数学、英语这些东西用循环里面的oGrd.Columns(i).header1.caption代替。但是好像出错了，高手快出来啊。