帮助逻辑梳理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：帮助逻辑梳理