主题：隐查显示

 循环每一行dr，写代码

If dr("考试名称") like "*毕业*" Then

    dr("语文成绩") = "优" '条件自己判断

End If

 1、如果想提高效率，你要加一列【显示为等级】，然后直接在本表对比。不然每次find的话，很慢的。

 2、简化的问题

Select Case e.Col.name
    Case "语文_A","数学_A","语文_语总","数学_数总"
       
        Dim lvl() As String = { "优", "良", "及格", "不合格"}
        Dim score() As Integer = {80, 70, 60, 0}
        For i As Integer = 0 To score.length-1
            If e.Row(e.Col.name) >= score(i) Then
                e.text = lvl(i)
                Exit For
            End If
        Next
end select