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