以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教：按成绩均衡分组填充序列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72700)
--  作者：方丈
--  发布时间：2015/8/4 19:23:00
--  [求助]请教：按成绩均衡分组填充序列

请教：按成绩均衡分组填充序列


1、成绩按从高到低排列
2、按分组数（窗口指定分成几组）均衡分成多组，组别填入“组别”列

如：分成8组，从高分到低分依次是：1、2、3、4、5、6、7、8、8、7、6、5、4、3、2、1、1、2、3、4、5、6、7、8、8、7、6、5、4、3、2、1.....
以此类推，求代码

 

 

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目24.table

[此贴子已经被作者于2015/8/4 19:24:46编辑过]
--  作者：大红袍
--  发布时间：2015/8/4 19:58:00
--  
Dim cbx As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim i As Integer = 1
Dim direct As Boolean = False
For Each dr As DataRow In DataTables("学生成绩库").Select("", "总分 desc")
    dr("组别") = i
    If direct = False Then
        If i = cbx.text Then
            direct = True
        Else
            i += 1
        End If
    Else
        If i = 1 Then
            direct = False
        Else
            i -= 1
        End If
    End If
Next
--  作者：方丈
--  发布时间：2015/8/4 20:48:00
--  
谢谢  大红袍