- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么用表达式求及格率？高分率？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107588)
-- 发布时间：2017/10/1 22:35:00
-- [求助]怎么用表达式求及格率？高分率？
[求助]怎么用表达式求及格率？高分率？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:国家开放大学考务系统.rar |
-- 发布时间：2017/10/4 9:48:00
--
表达式无法处理，只能使用代码，参考：http://www.foxtable.com/webhelp/scr/0681.htm
比如语文_及格率改为数据列，然后Datacolchanged代码类似：
If e.DataCol.Name = "班级" Then
Dim cnt As Integer = DataTables("分数表").Compute("Count(班级)","班级=" & e.DataRow("班级" ))
If cnt > 0 Then
e.DataRow("语文_及格率") = DataTables("分数表").Compute("Count(班级)","班级=" & e.NewValue & " and 语文 >= 60") / cnt
Else
e.DataRow("语文_及格率") = 0
End If
End If