随机选取过程中按顺序展示动态效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 随机选取过程中按顺序展示动态效果

共有6338人关注过本帖树形打印复制链接主题：随机选取过程中按顺序展示动态效果

sysckj

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

加好友

发短信

等级：幼狐帖子：132 积分：1651 威望：0 精华：0 注册：2014/6/9 14:21:00

随机选取过程中按顺序展示动态效果 发帖心情

Post By：2022/7/13 12:50:00 [只看该作者]

现有一个人员信息表，需要从其中随机抽取百分比人数，百分比不为整数时数量+1，抽取过程中需要按抽取顺序动态展示被抽中的人员名字，人员信息表中我添加了一个状态字段，如果是抽中的人员需要标记为“已选取”，未抽中的更新为“未选取”。

有点蓝

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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/13 13:17:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/2963.htm

sysckj

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

加好友

发短信

等级：幼狐帖子：132 积分：1651 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点蓝）http://www.foxtable.com/webhelp/to... 发帖心情

Post By：2022/7/13 13:38:00 [只看该作者]

现在就是用的这个，其他的不知道怎么处理

有点蓝

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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/13 13:43:00 [只看该作者]

其它什么东西不知道怎么处理?

sysckj

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

加好友

发短信

等级：幼狐帖子：132 积分：1651 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点蓝）其它什么东西不知道怎么处理? 发帖心情

Post By：2022/7/13 13:54:00 [只看该作者]

1、固定人数设置为百分比，不为整数+1

2、选取过程中更新状态字段

3、选取过程按选取顺序逐个展示名字

有点蓝

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

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/13 13:59:00 [只看该作者]

1、不就是简单的数学计算？加上表格有100行，取9%，就是100 * 0.09，取整参考：http://www.foxtable.com/webhelp/topics/0272.htm

2、参考帮助里的“选择”逻辑列的用法

3、弹出显示不就行了，比如

Dim cnt As Integer = DataTables("订单").DataRows.Count
Dim nds As Integer = 100 '要抽取的记录数
Tables("订单").StopRedraw()
DataTables("订单").ReplaceFor("选择",False)
Do
    Dim idx As Integer = rand.Next(0,cnt)
    Dim dr As DataRow = DataTables("订单").DataRows(idx)
    If dr("选择") = False Then
        dr("选择") = True

msgbox(dr("姓名"))

nds = nds - 1
End If
Loop While nds > 0
Tables("订单").Filter = "[选择] = True"
Tables("订单").ResumeRedraw()

下一主题 >> << 上一主题

主题：随机选取过程中按顺序展示动态效果