Dim dr As DataRow = DataTables("考试名称").find("考试名称 = '" & e.Row("考试名称") & "' and 学段 = '"& e.row("学段") & "' And 显示为等级 = 'True'")
If dr IsNot Nothing
Select Case e.Col.name
Case "语文_A","数学_A","语文_语总","数学_数总"
If E.Row("语文_A")>=85
e.text ="优"
End If
If E.Row("数学_A")>=85
e.text ="优"
End If
If E.Row("语文_语总")>=85
e.text ="优"
End If
If E.Row("数学_A")>=85
e.text ="优"
End If
If E.Row("语文_A")>=75 And E.Row("语文_A")<=84
e.text ="良"
End If
If E.Row("数学_A")>=75 And e.Row("数学_A") <=84
e.text ="良"
End If
If E.Row("数学_数总")>=75 And e.Row("数学_数总") <=84
e.text ="良"
End If
If E.Row("语文_语总")>=75 And e.Row("语文_语总") <=84
e.text ="良"
End If
If E.Row("语文_A")>=60 And E.Row("语文_A")<=74
e.text ="合格"
End If
If E.Row("数学_A")>=60 And E.Row("数学_A")<=74
e.text ="合格"
End If
If E.Row("语文_语总")>=60 And E.Row("语文_语总")<=74
e.text ="合格"
End If
If E.Row("数学_数总")>=60 And E.Row("数学_数总")<=74
e.text ="合格"
End If
If E.Row("语文_A")<=59
e.text ="不合格"
End If
If E.Row("数学_A")<=59
e.text ="不合格"
End If
If E.Row("语文_语总")<=59
e.text ="不合格"
End If
If E.Row("数学_数总")<=59
e.text ="不合格"
End If
Case "总分"
e.text ="***"
End select
End If
上面代码写在drawcell中，问题是上面代码如何简化并提高效率，还有好像判断有问题，怎么改？谢谢
加好友 
发短信
Post By：2017/6/15 21:43:00 [显示全部帖子]
