- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于随机问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133625)
-- 发布时间：2019/4/17 12:08:00
-- [求助]关于随机问题
如附件，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试 - 副本.zip |
-- 发布时间：2019/4/17 12:53:00
--
Dim dt1 As DataTable = DataTables("抽取数据表")
Dim dt2 As DataTable = DataTables("表C")
Dim count As Integer = 20
Dim cnt As Integer = 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 \'洗牌次数
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
Dim rys = dt2.GetValues("第一列", "第一列 is not null")
For i As Integer = 0 To ids.length-1
Dim ndr = dt1.AddNew
ndr("所属管段") = ids(i)
ndr("立刻就看见") = rys(i Mod 5)
Next
-- 发布时间：2019/4/17 16:12:00
--
此主题相关图片如下：微信图片_20190417160828.png
可能我没表述清楚，现在的情况是抽取之后，点击随机管段，是在下面增加了相应的行数
此主题相关图片如下：微信图片_20190417160931.png
-- 发布时间：2019/4/17 16:34:00
--
不理解你什么意思
Dim dt1 As DataTable = DataTables("抽取数据表")
Dim dt2 As DataTable = DataTables("表C")
Dim count As Integer = 20
Dim cnt As Integer = dt1.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*10 \'洗牌次数
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
Dim rnd = rand.Next(cnt-count)
Dim rys = dt2.GetValues("第一列", "第一列 is not null")
For i As Integer = 0 To count-1
Dim dr As DataRow = dt1.DataRows(rnd+i)
dr("立刻就看见") = rys(i Mod 5)
Next