以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  成绩一分一段问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74384)
--  作者：HJG_HB950207
--  发布时间：2015/9/9 17:52:00
--  成绩一分一段问题
成绩表 A 有：姓名，成绩
要根据考试成绩形成表B, 分数，人数，累计人数。

表B类似下表:
            分数   人数  累计人数
            100     5      5
              99     4      9
              98     3      12
               ：
               ：
               1         
--  作者：大红袍
--  发布时间：2015/9/9 17:56:00
--  

参考帮助，往表里面填入分数值即可。

 

http://www.foxtable.com/help/topics/0681.htm

 
--  作者：大红袍
--  发布时间：2015/9/9 18:06:00
--  
Dim dta As DataTable = DataTables("表A")
Dim dtb As DataTable = DataTables("表B")
dtb.DataRows.Clear
For i As Integer = 100 To 0 Step -1
    Dim ndr As DataRow = dtb.AddNew
    ndr("分数") = i
    ndr("人数") = dta.Compute("count(姓名)", "成绩 >= " & i  & " and 成绩 < " & i + 1)
    ndr("累计人数") = dta.Compute("count(姓名)",  "成绩 >= " & i )
Next
--  作者：HJG_HB950207
--  发布时间：2015/9/9 18:17:00
--  
谢谢老师！