- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何根据显示人员数，进行随机抽取不重复的数，并且抽取后不允许更改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109227)
-- 发布时间：2017/11/7 11:25:00
-- [求助]如何根据显示人员数，进行随机抽取不重复的数，并且抽取后不允许更改
当进行年度，面试时间、面试场次、申报专业、单位类型后，点击“显示人员”后，根据显示的人数，点击“批量抽签”或“单个抽签”，随机抽取不重复的整数，写入所显示人员的“面试顺序号”列，并且抽取后不允许更改，如何实现，谢谢
此主题相关图片如下：截图02.jpg
-- 发布时间：2017/11/7 12:41:00
--
参考
http://www.foxtable.com/webhelp/scr/2963.htm
-- 发布时间：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
-- 发布时间：2017/11/7 16:08:00
--
参考这种方法
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=86672&skin=0
-- 发布时间：2017/11/8 8:36:00
--
上传例子：当按下述代码时，每单位格填写数据怎么一样呢，请指导
例子：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:填入随机不重复数.zip |
-- 发布时间：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()
-- 发布时间：2017/11/8 8:57:00
--
生成数据怎么有0，而没有10呢，怪了
-- 发布时间：2017/11/8 9:12:00
--
DataTables("表A").DataRows(i)("随机数")=ids(i)+1
-- 发布时间：2017/11/8 9:22:00
--
棒极了，谢谢
-- 发布时间：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()