以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  帮助逻辑梳理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144369)

--  作者：有点蓝 --  发布时间：2019/12/18 8:35:00 --   请详细描述问题

--  作者：有点蓝 --  发布时间：2019/12/18 9:08:00 --   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

--  作者：有点蓝 --  发布时间：2019/12/20 8:52:00 --   msgbox(Filter) \'条件是否正确？有符合条件的数据吗？