以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请帮纠错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89317)

--  作者：刘林 --  发布时间：2016/8/19 8:35:00 --  请帮纠错 Dim dr As DataRow = e.DataRow Dim dt As DataTable = DataTables("成绩") If e.DataCol.Name = "学校代码" Then     dr("参考人数") = dt.Compute("count(姓名)","[学校代码] = \'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")     dr("语文_平均分") = dt.Compute("AVG(语文_语总)","[学校代码] = \'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")    dr("语文_优秀率") = dt.Compute("count(姓名)","[语文_语总] >= 85 \'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")/dr("参考人数") End If 红色不对，请帮指导，谢谢！！！

--  作者：Hyphen --  发布时间：2016/8/19 8:49:00 --   dr("语文_优秀率") = dt.Compute("count(姓名)","[语文_语总] >= 85 and [学校代码] =\'" & dr("学校代码") & "\'and [年级代码] = \'" & dr("年级代码") & "\'and [班级] = \'" & dr("班级") & "\'")/dr("参考人数")

--  作者：刘林 --  发布时间：2016/8/19 9:00:00 --   谢谢！！！