If e.DataCol.Name = "学校名称" OrElse e.DataCol.Name = "年级简称" OrElse e.DataCol.Name = "班级编号" OrElse e.DataCol.Name = "学科" Then
If e.DataRow.isnull("学科") Then
MessageBox.show("请选择班级与学科")
e.DataRow("总分") = Nothing
e.DataRow("参评人数") = Nothing
e.DataRow("人平") = Nothing
e.DataRow("及格人数") = Nothing
e.DataRow("优生人数") = Nothing
e.DataRow("及格率") = Nothing
e.DataRow("优生率") = Nothing
Else
Dim filter As String = ""
Dim Filter_jg As String = e.DataRow("学科") & " >= " & (vars("标准总分") * 0.6 )
Dim Filter_yy As String = e.DataRow("学科") & " >= " & (vars("标准总分") * 0.8 )
If e.DataRow.isnull("班级编号") = False
Filter_jg = Filter_jg & " and [班级编号] = '" & e.DataRow("班级编号") & "'"
'Filter_yy按照同样的方法自己补充
End If
If e.DataRow.isnull("年级简称") = False
Filter_jg = Filter_jg & " and [年级简称] = '" & e.DataRow("年级简称") & "'"
'Filter_yy按照同样的方法自己补充
End If
If e.DataRow.isnull("学校名称") = False
Filter_jg = Filter_jg & " and [学校名称] = '" & e.DataRow("学校名称") & "'"
'Filter_yy按照同样的方法自己补充
End If
'这里开始是统计的代码
End If
End If
加好友 
发短信
Post By：2019/12/18 8:35:00 [显示全部帖子]
