提取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提取数据

共有1974人关注过本帖树形打印复制链接主题：提取数据

a272797388

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：147 积分：1863 威望：0 精华：0 注册：2020/1/23 16:11:00

提取数据

Post By：2020/10/11 16:38:00 [只看该作者]

同项目下，在表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()