俺在 7 楼的回复楼主可曾试过？

感觉7楼的答案，是最贴近你的实际情况的，要把这个游标设置为可读写，还要刷新游标，一般人可能会忽略这个。还有，删除List中的项目，在数据源设置为1、2时，才有效。

@liuxingang28,试啦,在游标中也能正确标示出删除标记,但是无法在游标中使用pack命令,正抓狂呢

控件数据源绑定了表时，有时读写控件的属性或调用控件的方法会存在一些意想不到的结果，通常是直接处理绑定的表，控件只是用来作为表数据的映照（数据感知）。

如果要随机增删List条目，不用绑定表就简单点，确要RecordSourceType=3，RowSource的SQL SELECT语句可以带条件表达式，或RowSource用动态SQL SELECT语句，这样就可以用list1.Requery刷新列表。

用笨办法,在数据库新建了一个自由表储存结果集,问题算是解决啦,谢谢各位热心帮助

忘了在哪里结贴啦,咋给各位分呀

为什么要对游标 Pack 呢？设置 Set Delete ON 不行吗？

一定要用RowSourceType=3，可以试试：

** Test.prg 双击列表删除条目
CREATE CURSOR tt (f1 C(10))
INSERT INTO tt VALUES ("101")
INSERT INTO tt VALUES ("202")
INSERT INTO tt VALUES ("303")
INSERT INTO tt VALUES ("404")
INSERT INTO tt VALUES ("505")
INSERT INTO tt VALUES ("606")
SELECT f1 FROM tt INTO CURSOR tmp READWRITE

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

DEFINE CLASS form1 as Form
    ADD OBJECT list1 as listbox WITH top=10,left=10,;
        RowSourceType=3,;
        RowSource="SELECT f1 FROM tmp INTO CURSOR list1_tmp READWRITE"
        
    PROCEDURE list1.DblClick
        USE IN "tmp"
        SELECT f1 FROM list1_tmp WHERE RECNO() != this.listindex INTO CURSOR tmp
        this.Requery
    ENDPROC
ENDDEFINE