表单组合框中如何过滤掉带有逻辑删除标记的记录
表单组合框下拉菜单中每次把带有逻辑删除标记的纪录都显示了出来,如何过滤掉数据源表中带有逻辑删除标记的记录,组合框的属性我看了一个遍,不知道那个属性设置有这个功能。如何在select语句中查询带有逻辑删除标记的记录
[此贴子已经被作者于2021-8-19 08:47编辑过]
[此贴子已经被作者于2021-8-19 08:47编辑过]
2021-08-19 08:41
2021-08-19 09:09
2021-08-19 09:22
2021-08-19 09:55
2021-08-19 10:08
程序代码:**
** 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编辑过]
2021-08-19 10:12