主题：分数区间代码求助？

有“理论”、“实操”、“评定”三列，

要求：1 “理论”、“实操”都>=90，则“评定”＝4；两个中有任何一个低于90，则按低的那个所在区间算“评定”，比如“理论”= 85 ，“实操”=90，则“评定”=3

        2 “理论”、“实操”都 90 >且>=80，则“评定”＝3；两个中有任何一个低于80，则按低的那个所在区间算“评定”，比如“理论”= 79 ，“实操”=82，则“评定”=2

        3 “理论”、“实操”都 80 >且>=60，则“评定”＝2；两个中有任何一个低于60，则按低的那个所在区间算“评定”，比如“理论”= 55 ，“实操”=90，则“评定”=1

 

以下代码该怎么修改：

Select Case e.DataCol.Name
    Case "理论成绩","实操成绩","评定成绩"
        If 70 > e.DataRow("理论成绩") >= 60 And 70 >e.DataRow("实操成绩") >= 60 Then
            e.DataRow("评定成绩") = "2"
        Else If 90 > e.DataRow("理论成绩") >=80 And 90 > e.DataRow("实操成绩") >= 80 Then
            e.DataRow("评定成绩") = "3"
        Else If e.DataRow("理论成绩") >= 90 And e.DataRow("实操成绩") >= 90 Then
            e.DataRow("评定成绩") = "4"
        End If
End Select

汗，也就是按照低的那个算。

 

Select Case e.DataCol.Name
    Case "理论成绩","实操成绩"
        Dim min = math.Min(e.DataRow("理论成绩"),e.DataRow("实操成绩"))
       
        If min > 90 Then
            min = 4
        ElseIf min > 80 Then
            min = 3
        ElseIf min > 60then
            min = 2
        Else
            min = 1
        End If
        e.DataRow("评定成绩") = min
End Select

原来没有想像那么复杂！谢谢版主！

Select Case e.DataCol.Name
    Case "理论成绩","实操成绩"
        Dim min = math.Min(e.DataRow("理论成绩"),e.DataRow("实操成绩"))

        If min >= 90 Then
            min = 4
        ElseIf min >= 80 Then
            min = 3
        ElseIf min >= 60 Then
            min = 2
        Else
            min = 1
        End If
        e.DataRow("评定成绩") = min
End Select

问题：当“理论成绩”或“实操成绩”中有1项为60时，“评定成绩”为“1”，实际应为“2”才对，这是什么原因？

规则贴出来啊

什么规则？这个问题还是1楼的问题，只是今天我在运行的时候发现了新的问题

肯定有一项低于60才会是1。代码没问题。

60<两门分数<80，则“评定成绩”=2； 80<=两门分数<90，则“评定成绩”=3；两门分数>=90，则“评定成绩”=4

 

评定成绩取两门的成绩的最低1门所在分数区间

无语。肯定有一项低于60才会是1。代码没问题。

现在我重新输入了1个60，再重置列就又好了，真是怪事！

谢谢版主！！！！！！