主题：我觉得很难，成不成老师你给掌一掌眼

DataColChanged

If e.datacol.name = "小时" then
    Dim n As Integer  = math.Floor(e.NewValue / 250)
    If n = 0 Then
        e.DataRow("级别") = Nothing
    else
        n = n Mod 4
        If n = 1 Then
            e.DataRow("级别") = "A"
        ElseIf n = 2 Then
            e.DataRow("级别") = "B"
        ElseIf n = 3 Then
            e.DataRow("级别") = "A"
        ElseIf n = 0 Then
            e.DataRow("级别") = "C"
        End If
    End If
end if