Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何根据显示人员数，进行随机抽取不重复的数，并且抽取后不允许更改


  共有2908人关注过本帖树形打印复制链接

主题：[求助]如何根据显示人员数，进行随机抽取不重复的数，并且抽取后不允许更改
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]如何根据显示人员数，进行随机抽取不重复的数，并且抽取后不允许更改  发帖心情 Post By：2017/11/7 11:25:00 [只看该作者]

当进行年度，面试时间、面试场次、申报专业、单位类型后，点击“显示人员”后，根据显示的人数，点击“批量抽签”或“单个抽签”，随机抽取不重复的整数，写入所显示人员的“面试顺序号”列，并且抽取后不允许更改，如何实现，谢谢

如下图：
图片点击可在新窗口打开查看此主题相关图片如下：截图02.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/7 12:41:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/7 15:55:00 [只看该作者]

有点甜：我参考后，写了一段代码，但运行时软件死机，什么原因？请指导

代码：Dim nList As new List(of String)
Dim rnum As Integer
Dim cnt As Integer=Tables("人员抽取_人员").DataTable.DataRows.Count
For Each dr As DataRow In DataTables("表A").DataRows
    rnum=Rand.Next(1, cnt)
    If nList.Contains(rnum)=False Then
        dr("面试顺序")=rnum
        nList.Add(rnum)
    Else
        Do While True
            rnum=Rand.Next(1, cnt)
            If nList.Contains(rnum)=False Then
                dr("面试顺序")=rnum
                nList.Add(rnum)
                Exit Do
            End If
        Loop
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/7 16:08:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 8:36:00 [只看该作者]

上传例子：当按下述代码时，每单位格填写数据怎么一样呢，请指导
例子：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:填入随机不重复数.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/8 8:46:00 [只看该作者]

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()
For i As Integer = 0 To DataTables("表A").DataRows.count-1
    DataTables("表A").DataRows(i)("随机数")=ids(i)
Next
dt.ResumeRedraw()

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 8:57:00 [只看该作者]

生成数据怎么有0，而没有10呢，怪了
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/8 9:12:00 [只看该作者]

DataTables("表A").DataRows(i)("随机数")=ids(i)+1

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 9:22:00 [只看该作者]

棒极了，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8900 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 10:03:00 [只看该作者]

有点甜，不好意思，还得麻烦你，刚才的代码能生成顺序号了，但我选择表格内容后，点击批量抽签时，他把全表的内容生成了序号，不能按选择的行数进行生成，请看代码：
Dim dt As Table = Tables("人员抽取_人员")
Dim cnt As Integer = dt.Rows.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()
For i As Integer = 0 To Tables("人员抽取_人员").Rows.count -1
    Tables("人员抽取_人员").Rows(i)("面试顺序")=ids(i)+1
Next
dt.ResumeRedraw()
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询