- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据重新洗牌不成功 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78710)
-- 发布时间：2015/12/15 15:43:00
-- 数据重新洗牌不成功
还是那个测评程序，今天使用时发现，洗牌不成功，代码附图
想要的功能：从题库里抽取40道题，重新排序并显示，或对题库重新排序再抽题，都一样，代码如图，我今天测试了下，抽完的题目顺序还是按照以前的顺序排下来的，打个比方，有10个题，抽五个，执行代码，抽出来后的题顺序还是之前的顺序（比如1.3.5.6.8.9），并没有实现打乱原有顺序的目的（比如5.9.8.3.6.1）。我使用的是内部数据表。
此主题相关图片如下：1.png
[此贴子已经被作者于2015/12/15 15:44:55编辑过]
-- 发布时间：2015/12/15 15:55:00
--
看了一下，代码没问题。
你可以弹出str(i)的值看一下，每次肯定不同。
不会做就上传具体例子。
-- 发布时间：2015/12/15 16:32:00
--
项目管理---窗口设计----抽取窗口----点击按钮即可，窗口是独立的，能看到表内数据并没有进行排序
-- 发布时间：2015/12/15 16:44:00
--
汗，40题，抽40题，勾选的肯定是全部。
要想排序变化，参考
For i As Integer = 0 To 40- 1 \'40为要抽取的行数
DataTables("题库").DataRows(str(i))("抽取") = True
DataTables("题库").DataRows(str(i))("_Sortkey") = i
Next
-- 发布时间：2015/12/15 16:50:00
--
谢谢袍哥