访问查询-返回具有匹配编号的所有行，直到另一个字段具有特定值

Question

我目前有一个很大的Excel工作表，其中包含很多VBA，如果可能的话，我希望将其移到Access中，以使用查询而不是一堆循环，if语句等来加快访问速度。订单数据。

数据以类似于下面的格式下载（我已经大大简化了）：

Order Number        Operation          Sequence
A1                  0                  1
A1                  0                  2
A1                  L                  3
A1                  L                  4
A2                  L                  1
A2                  0                  2
A3                  L                  1
A4                  0                  1
A4                  L                  2
A4                  L                  3
A4                  L                  4                  

在Excel中，我可以使用订单号循环浏览各行，并在操作为“ L”时停止。 我想使用订单号浏览每一行，并在到达第一个“ L”之后删除所有其他序列。 最高表的预期收益为：

Order Number        Operation          Sequence
A1                  0                  1
A1                  0                  2
A1                  L                  3

A2                  L                  1

A3                  L                  1
A4                  0                  1
A4                  L                  2

空白/缺失行是应从表中删除的行。

当前表

Answer 1

我尚未对此进行测试，但是它将为您提供一个良好的起点。 假定您的Access表已使用RecordID主键正确导入：

DELETE * FROM OrderData WHERE RecordID IN (
    SELECT RecordID FROM OrderData INNER JOIN
        (SELECT OrderNumber, MIN(Sequence) AS LGS FROM OrderData WHERE Operation='L' GROUP BY OrderNumber) LGR
        ON OrderData.OrderNumber=LGR.OrderNumber AND OrderData.Sequence>LGR.LGS )

首先，为每个订单号获取带有“ L”运算的MIN（Sequence），然后获取Sequence高于该编号的所有RecordID，并将其用作DELETE条件。