主题：等级划分

设置DataColChanged事件代码：

 

Select Case e.DataCol.Name

    Case “分数"

        Dim v As Double = e.Datarow("分数")

        if v < 60 Then

              e.datarow("等级") = “E”

        Elseif v < 70 Then

              e.datarow("等级") = "D”

        Elseif v < 80 Then

              e.datarow("等级") = "C”

        Elseif v < 90 Then

              e.datarow("等级") = "B”

        Else

              e.datarow("等级") = "A”

        End If

End Select