以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  随机排考号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117954)
--  作者：刘林
--  发布时间：2018/4/21 17:37:00
--  随机排考号
老师，表中有考点列，分考点排考号，考号5位，前三位为拉通的考试室号，后两后是每个考试室的排号，（01-30），同考点随机排，请老师指点一下
--  作者：有点甜
--  发布时间：2018/4/22 23:59:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2963.htm

 

不会做上传具体实例
--  作者：刘林
--  发布时间：2018/4/23 7:14:00
--  
Dim kds As List(Of String) = DataTables("中考表").sqlGetValues("kdxxdm","ksmc=\'18春生地中考\'")      \'取不同考点
For Each kd As String In kds                                                                        \'循环不同考点
    Dim kddr As List(of DataRow)= DataTables("中考表").Select("kdxxdm = \'" & kd & "\'")              \'取考点人数集合
    Dim kdrs As Integer = kddr.Count                                                                \'取考点人数kdrs
    Dim kcs As Integer
    If kdrs Mod 30 > 15
        kcs = Math.Ceiling(kdrs/30)
    Else
        kcs = math.Floor(kdrs/30)
    End If                                                                                           \'取该考点的考试室个数
    For i As Integer = 1 To kcs                                                                  \'循环考点的考试室,每个考试室随机安排30人尾考试室不一定为30
        
       每个考点的每个考试室随机排30号，1802+考试室（3位）各考点拉通，从001至最后，+考号01-30
        
        
        
        
        
        
        
        
        
        
    Next
Next



看了弄不清楚，请老师帮讲一下，谢谢
--  作者：有点甜
--  发布时间：2018/4/23 8:58:00
--  

将数据打乱（洗牌），然后从1开始编号即可。

 

类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109227&skin=0

 

不会做上传实例。