主题：怎么锁定知道行

    r.Locked = r("是否提交")

Next

如果前面所有成绩都及格的话再判断倒数第二列”综合成绩“。如果”综合成绩“大于90则”备注“为优秀，如果80到90，”备注“显示”良好“，如果70到80”中等“，如果60到70是”及格“如果低于60，则吧”备注“列为”不及格“

这个逻辑表达太难了，对于  我初学就更难了。再麻烦你了。
此主题相关图片如下：2013-12-31_205221.png

For Each r As Row In t.Rows

    Dim over As Boolean = False

    For i As Integer = 4 To 21

        If r(t.Cols(i).Name) < 60 Then

           r("备注") = "不及格"

           over = True

            Exit For

        End If

    Next

    If over = False Then

        If r("综合成绩") > 90 Then

            r("备注") = "优秀"

        Else If r("综合成绩") > 80 Then

            r("备注") = "良好"

        Else If r("综合成绩") > 70 Then

            r("备注") = "中等"

        Else If r("综合成绩") > 60 Then

            r("备注") = "合格"

        Else 

            r("备注") = "不合格"

        End If

    End If

Next