可以哈

[此贴子已经被作者于2018-5-13 17:36编辑过]

后来运行了一下，又可以随机变化顺序了。

[此贴子已经被作者于2018-5-13 17:38编辑过]

用rand()随机排，如：
CREATE CURSOR tt(f1 I, f2 I)
FOR i=1 TO 10
    INSERT INTO tt VALUES (i, i*2)
ENDFOR
INDEX on RAND() TAG tag_rand
BROWSE

我试用了一下是变化的

你可以先打开DBF表看一下　sjs 的记录值。打开表单，关闭后，再打开DBF表看一下　SJS　的记录值。是变化的。每次选同一本书同一单元确定后就发生排序的变化了。

IF EMPTY(c_sb)
  MESSAGEBOX('请选择要练习的书本……',64,'提示：')
  RETURN
ENDIF
IF EMPTY(c_dy)
  MESSAGEBOX('请选择要练习的单元……',64,'提示：')
  RETURN
ENDIF
CLOSE DATABASES
SELECT * from yydclx where sbh=c_sb and dyh=c_dy orde by sjs into cursor cyk
SELECT yydclx
USE
SELECT cyk
thisform.Refresh
变化来自红色的子句

后来再次运行，证明顺序是随机变化的哈。

按你的方法，看到变化了哈。

受一个表单的约束。如果做成EXE文档，打乱次序可写在其他位置上。设计会方便一些。

这里的办法是：表单启动时写入一串随机数，当选择书本和单元，经　确定　后，才完成排序。

原始表的物理排序是不变的。

每次打开后，不选择书本和单元，所看到的是不变的顺序。