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


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

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


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

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

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


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 8:36:00 [显示全部帖子]

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


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 8:57:00 [显示全部帖子]

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


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 9:22:00 [显示全部帖子]

棒极了，谢谢

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


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：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()
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 10:06:00 [显示全部帖子]

不能按表显示的内容生成序号，而是全部生成了，
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 11:56:00 [显示全部帖子]

有点甜，还是不行，我把例子发给你，请你给看一下，谢谢你

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


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 15:25:00 [显示全部帖子]

还是不行，怎么办呢

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


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/11/8 15:52:00 [显示全部帖子]

麻烦你把软件发给我吧，我看看是哪儿出了问题
 回到顶部
总数 11 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.06250 秒, 7 次数据查询