第一次随机查询，第二次带条件指定查询可以吗？ - 编程论坛

#2

吹水佬2022-08-27 06:05

随机也是一个条件吧？

#3

xuminxz2022-08-27 08:45

说的是不是第一次随机筛选出一部记录，第二次在其中再按指定条件查询？可以先随机排序，再在前面指定条记录中按条件查询。

#4

ruankao20222022-08-27 09:36

回复 3楼 xuminxz

是这个意思？有没有可能实现

#5

ruankao20222022-08-27 09:37

回复 2楼吹水佬

随机就是任意抽取一条记录不带条件，如实现方式rand也是一种，但第二次再次点击查询就是待条件的查询

请大神帮帮，确实不知道该怎么写呢

#6

吹水佬2022-08-27 15:56

关键字：第一次、第二次、点击“查询”。

#7

ruankao20222022-08-29 10:11

回复 6楼吹水佬

查询按钮就一个，第一次点击是随机查询，第二次点击为条件查询

#8

cxzbzgz2022-08-29 11:24

第一次随机查询，不管怎么随机，都有条件的，没有条件怎么查询

#9

laowan0012022-08-29 15:13

回复楼主 ruankao2022

当然可以，利用command.tag保存点击次数，command.tag的初始值为‘0’,点击一次就+1，如果等于1就按指定条件查询

#10

吹水佬2022-08-29 16:15

以下是引用ruankao2022在2022-8-29 10:11:16的发言：

查询按钮就一个，第一次点击是随机查询，第二次点击为条件查询

程序代码：

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,height=25,caption="查询"
    PROCEDURE cmd1.click
        IF EMPTY(this.tag)  && 可定义其他查询状态标志
            this.tag = "1"
            MESSAGEBOX("随机查询")
        ELSE
             this.tag = ""
             MESSAGEBOX("条件查询")
        ENDIF
    ENDPROC
ENDDEFINE

#11

ruankao20222022-08-31 16:42

回复 10楼吹水佬

非常感谢，如果在叠加第三次、第四次..是不是需修改？我尝试了很多次，叠加第四次（发现直接跳过了第三次）万分感谢

#12

sostemp2022-08-31 16:47

tag分类标识下呗

#13

ruankao20222022-08-31 17:00

回复 9楼 laowan001

IF EMPTY(this.tag)  && 可定义其他查询状态标志
            this.tag = "1"
            MESSAGEBOX("随机查询")
        ELSE
             this.tag = "2"
             MESSAGEBOX("条件查询1")
        ENDIF

          IF this.tag = "3"
           MESSAGEBOX("条件查询2")
          ELSE
          this.tag = "4"
           MESSAGEBOX("条件查询3")
       ENDIF

这样写出来只执行了条件查询1 条件查询3

#14

laowan0012022-08-31 17:52

回复 13楼 ruankao2022

这样写会执行两次，一次是“随机查询”，另一次是“条件查询3”
试试下面这样

do case
case empty(this.tag)
    this.tag = "1"
    MESSAGEBOX("随机查询")
case this.tag = "1"
    this.tag = "2"
    MESSAGEBOX("条件查询1")
case this.tag = "2"
    this.tag = "3"
    MESSAGEBOX("条件查询2")
case this.tag = "3"
    this.tag = "4"
    MESSAGEBOX("条件查询3")
* 如果需要的话，还可以加更多的case
endcase

#15

ruankao20222022-08-31 20:14

回复 14楼 laowan001

万分感谢大神！我再试试