主题：[求助]请大神指点考试自动排场次和排座次？

现急需大神帮助，现有3000考生参加考生，领导让我排场次和座次，要求随机产生场次和座次，程序如下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动生成场次和座次.foxdb

要求：每个场次最多30人，先随机出场次，再随机出座次，最好做个按钮能多次随机

参考

 

Dim dt As DataTable = DataTables("表A")
Dim cnt As Integer = dt.DataRows.Count
Dim ids(cnt - 1) As Integer
For i As Integer = 0 To cnt -1
    ids(i) = i
Next
For i As Integer = 0 To cnt \ 2 '洗牌次数
    Dim id1 As Integer = rand.Next(0,cnt)
    Dim id2 As Integer = rand.Next(0,cnt)
    Dim vid As Integer = ids(id1)
    ids(id1) = ids(id2)
    ids(id2) = vid
Next
dt.StopRedraw()
Dim cj As Integer = 1
Dim zc As Integer = 1
For i As Integer = 0 To ids.length -1
    dt.DataRows(ids(i))("场次") = cj
    dt.DataRows(ids(i))("座次") = zc
    If zc = 30 Then
        cj += 1
        zc = 0
    End If
    zc += 1
Next
dt.ResumeRedraw()

谢谢，我试一下

学习了。正好用上