汗,也就是按照低的那个算。
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("评定成绩") = minEnd Select