如何在 FoxPro 中使用 SET FILTER TO 将结果限制为另一个游标中的匹配记录

Question

假设，我有一个包含数据记录的游标，在 csrData 中具有标识外键：

|  ID  |  Foreign_ID  |  
|  1   |  1           |  
|  2   |  1           |  
|  3   |  2           |  
|  4   |  2           |  
|  5   |  2           |  
|  6   |  3           |  

并且在单独的游标中包含外部 ID 列表 csrMatches：

|  Match_Foreign_ID  |  
|  1                 |  
|  3                 |  

是否存在 SET我可以针对 csrData 发出 FILTER TO 命令来获取：

|  ID  |  Foreign_ID  |  
|  1   |  1           |  
|  2   |  1           |  
|  6   |  3           |  

我知道这可以使用 SQL 查询来实现，但我使用的报告框架限制我SET FILTER TO声明。 INLIST() 函数的工作原理类似，但我想对一组未知大小进行过滤。

Answer 1

您可以创建一个过滤条件，在 csrMatches 中查找给定的 csrData.Foreign_ID，如果找到则返回 true，否则返回 false。

首先，在 csrMatches 中的 Match_Foreign_ID 字段上创建索引。然后，创建一个过滤器，使用 indexseek() 来测试每个 Foreign_ID 是否包含在 csrMatches 中。

select csrMatches
index on Match_Foreign_ID tag Foreign_ID

select csrData
set filter to indexseek(csrData.Foreign_ID, .f., "csrMatches", "Foreign_ID")

使用 indexseek() 比 seek() 因为 indexseek() 只是使用索引来检查是否找到键，并且不移动活动记录指针。

Answer 2

如果您在每个“游标”上都有一个索引，则可以通过设置关系、设置过滤器来完成...

如果您通过 SELECT ... INTO CURSOR csrData 创建游标，请务必添加关键字“READWRITE”以允许读写游标，您可以在其上构建索引标签。

select ... from ... where ... into cursor csrData READWRITE

与 csrMatches - READWRITE 相同。

创建后，执行以下操作...

select csrMatches
index on Match_Foreign_ID tag Foreign_ID

select csrData
set relation to Foreign_ID into csrMatches

set filter to NOT EOF( "csrMatches" )

由于数据与其他匹配表相关，每当记录指针从一行移动到另一行时，它都会尝试在“相关”游标（或表）中为您找到匹配项。如果找不到另一个光标，它会将另一个光标移动到 EOF()（文件结尾）。所以现在，您可以将过滤器设置为 NOT EOF( "csrMatches" )

这种方法的另一个优点是，您还可以过滤另一个表中列的值...如果您需要的话。例如，如果您将销售链接到客户表，并希望根据特定州或地区的客户进行显示。当然，所有销售都将与客户相关联，但您可以通过以下方式应用过滤器

select customers
set index to customerID

select SalesSample
set relation to customerID into customers

set filter for not eof( "Customers" ) and inlist( Customers.State, "NY, "PA", "MA" )

Answer 3

您可以使用 select 语句将这两个游标连接在一起。

SELECT * FROM csrData INNER JOIN csrMatches ON ID = Match_Foreign_ID INTO CURSOR 结果 NOFILTER