如何在Visual FoxPro中的“In”中运行超过24个值条款？

Question

我正在使用foxpro 5.0

我有超过3000条记录来运行查询。例如我的查询是

delete from mytable.dbf where fieldname not in (1,2,3,......3909)

它不会执行。因为foxpro只允许In子句中的24条记录。我怎样才能执行这个查询？
任何简化的想法。

Answer 1

以下代码演示了如何根据一个表中的记录删除另一表中的记录。

CREATE CURSOR Table1 (pk I)
INSERT INTO Table1 (pk) VALUES(1)
INSERT INTO Table1 (pk) VALUES(2)
INSERT INTO Table1 (pk) VALUES(3)
INSERT INTO Table1 (pk) VALUES(4)
INSERT INTO Table1 (pk) VALUES(5)

CREATE CURSOR Table2 (pk I)
INSERT INTO Table2 (pk) VALUES(2)
INSERT INTO Table2 (pk) VALUES(4)


DELETE FROM Table1 WHERE Table1.pk IN (SELECT Table2.pk FROM Table2)

Answer 2

您可以尝试研究 SYS(3055) 函数，它允许您调整 FOR 和 WHERE 子句中允许的复杂性。

不过，我会获取您想要保留在临时游标中的字段名值列表，例如“_keep”，然后执行以下操作：

Delete From mytable where fieldname not in (select fieldname from _keep)
Use In Select("_keep")