表单组合框中如何过滤掉带有逻辑删除标记的记录 - 编程论坛

#2

吹水佬2021-08-19 09:09

试试：
SET DELETED
DELETED()

#3

hszxgb2021-08-19 09:22

回复 2楼吹水佬

表单组合框下拉菜单中每次把带有逻辑删除标记的纪录都显示了出来，如何过滤掉数据源表中带有逻辑删除标记的记录，组合框的属性我看了一个遍，不知道那个属性设置有这个功能。这个怎么实现

#4

hszxgb2021-08-19 09:55

回复 2楼吹水佬

SET DELETED
DELETED()
显示语法错误

#5

hszxgb2021-08-19 10:08

回复 2楼吹水佬

ok 谢谢你了
明白怎么回事了！新手见谅

#6

吹水佬2021-08-19 10:12

回复 3楼 hszxgb

程序代码：

**
** test.prg
**
CREATE CURSOR tt (f1 I)
FOR i=1 TO 10
    INSERT INTO tt VALUES (i)
ENDFOR

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

DEFINE CLASS form1 as Form
    ADD OBJECT combo1 as combobox WITH left=10,top=10,width=100,RowSourceType=3,;
        RowSource="SELECT f1 FROM tt WHERE !DELETED() INTO CURSOR combo1"
    ADD OBJECT cmd1 as commandbutton WITH left=120,top=10,height=25
    PROCEDURE cmd1.click
        SELECT tt
        LOCATE FOR f1==VAL()
        IF FOUND()
            DELETE
            ()
             = 1
        ENDIF
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2021-8-19 10:14编辑过]