以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于高效随机如何做到已经随机过的数据不再参与随机  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162947)

--  作者：237756360 --  发布时间：2021/4/18 8:52:00 --  关于高效随机如何做到已经随机过的数据不再参与随机 求助： 关于高效随机。如何做到已经随机过的数据不再参与随机。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:随机排序.foxdb [此贴子已经被作者于2021/4/18 8:56:38编辑过]

--  作者：237756360 --  发布时间：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"

--  作者：有点蓝 --  发布时间：2021/4/18 21:21:00 --   每次只从没有选择的数据里随机不就行了，比如 dim drs as List(of datarow) = DataTables("订单").select("[选择] = false") 然后从drs里随机取

--  作者：hongsejiyi --  发布时间：2021/4/18 22:39:00 --   高

--  作者：237756360 --  发布时间：2021/4/20 10:38:00 --  回复：（有点蓝）每次只从没有选择的数据里随机不就行... 试着改了，没成功，能麻烦蓝版帮我改一下吗？辛苦了！谢谢！

--  作者：有点蓝 --  发布时间：2021/4/20 10:51:00 --   怎么改的，把代码发上来

--  作者：237756360 --  发布时间：2021/4/20 11:39:00 --  回复：（有点蓝）怎么改的，把代码发上来 辛苦了  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:随机排序.foxdb [此贴子已经被作者于2021/4/20 11:40:18编辑过]

--  作者：有点蓝 --  发布时间：2021/4/20 11:51:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:随机排序.zip