同项目下，在表B里， 先把表A的数据打乱，然后把表A里性别为“男”的学生姓名列数据提取到表B的姓名列， 请问我下面的代码如何修改？
Dim cnt As Integer = DataTables("表A").DataRows.Count
Dim ids1 As New List(of Integer) '用于存储洗牌前的位置
Dim ids2 As New List(of Integer) '用于存储洗牌后的位置
For i As Integer = 0 To cnt -1 '准备初始的牌
ids1.add(i)
Next
For i As Integer = 0 To cnt - 1 '开始洗牌
Dim idx As Integer = ids1(rand.Next(0,ids1.count))
ids2.Add(idx)
ids1.Remove(idx)
Next
Tables("表A").StopRedraw()
DataTables("表A").ReplaceFor("选择",False)
For i As Integer = 0 To 5 - 1 '100为要抽取的行数
DataTables("表A").DataRows(ids2(i))("选择") = True
Next
Tables("表A").Filter = "[选择] = True"
Tables("表A").ResumeRedraw()
加好友 
发短信
Post By：2020/10/11 16:38:00 [显示全部帖子]
