Foxtable(狐表)用户栏目专家坐堂 → 关于高效随机如何做到已经随机过的数据不再参与随机


  共有3274人关注过本帖树形打印复制链接

主题:关于高效随机如何做到已经随机过的数据不再参与随机

帅哥哟,离线,有人找我吗?
237756360
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:2972 威望:0 精华:0 注册:2020/5/21 17:56:00
关于高效随机如何做到已经随机过的数据不再参与随机  发帖心情 Post By:2021/4/18 8:52:00 [只看该作者]

求助:
关于高效随机。如何做到已经随机过的数据不再参与随机。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:随机排序.foxdb




[此贴子已经被作者于2021/4/18 8:56:38编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
237756360
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:2972 威望:0 精华:0 注册:2020/5/21 17:56:00
  发帖心情 Post By:2021/4/18 13:23:00 [只看该作者]

找到个解决办法,但是不是很高效,就是把
Dim cnt As Integer = DataTables("订单").DataRows.Count
换成
Dim cnt As Integer = Tables("订单").Rows.Count

然后把每次随机的DataTables("订单").ReplaceFor("选择",False) 删掉

最后把
Tables("订单").Filter = "[选择] = true"
改成
Tables("订单").Filter = "[选择] = false"

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/18 21:21:00 [只看该作者]

每次只从没有选择的数据里随机不就行了,比如

dim drs as List(of datarow) = DataTables("订单").select("[选择] = false")
然后从drs里随机取

 回到顶部
帅哥哟,离线,有人找我吗?
hongsejiyi
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:338 积分:5262 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2021/4/18 22:39:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
237756360
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:2972 威望:0 精华:0 注册:2020/5/21 17:56:00
回复:(有点蓝)每次只从没有选择的数据里随机不就行...  发帖心情 Post By:2021/4/20 10:38:00 [只看该作者]

试着改了,没成功,能麻烦蓝版帮我改一下吗?辛苦了!谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/20 10:51:00 [只看该作者]

怎么改的,把代码发上来

 回到顶部
帅哥哟,离线,有人找我吗?
237756360
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:2972 威望:0 精华:0 注册:2020/5/21 17:56:00
回复:(有点蓝)怎么改的,把代码发上来  发帖心情 Post By:2021/4/20 11:39:00 [只看该作者]

辛苦了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:随机排序.foxdb


[此贴子已经被作者于2021/4/20 11:40:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/20 11:51:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:随机排序.zip


 回到顶部