如何在OpenEdge Progress中（非SQL方式）实现类似OFFSET和LIMIT的分页查询？

要实现类似SQL中OFFSET和FETCH的分页效果，OpenEdge Progress的原生4GL提供了两种可靠的实现方式，具体如下：

方法一：使用SKIP + FIRST关键字（推荐，适配OpenEdge 10.x及以上版本） #

这是最直接的实现方式，SKIP对应SQL的OFFSET，FIRST对应FETCH NEXT，语法简洁高效。

基础示例（匹配OFFSET 50 ROWS FETCH NEXT 10 ROWS效果） #

FOR EACH your-table NO-LOCK
    SKIP 50
    FIRST 10:
    DISPLAY your-table.field1 your-table.field2. /* 替换为业务需要的字段 */
END.

带排序的稳定分页 #

必须添加明确的排序规则，否则每次查询的记录顺序可能随机，导致分页结果不一致：

FOR EACH your-table NO-LOCK
    BY your-table.sort-field1 /* 主排序字段 */
    BY your-table.sort-field2 /* 可选次排序字段，用于主键冲突场景 */
    SKIP 50
    FIRST 10:
    DISPLAY your-table.field1 your-table.field2.
END.

方法二：手动计数过滤（兼容旧版本OpenEdge） #

如果你的OpenEdge版本不支持SKIP关键字，可以通过循环计数的方式手动跳过前N条并截取指定数量的记录：

DEFINE VARIABLE i-record-count AS INTEGER NO-UNDO INITIAL 0.

FOR EACH your-table NO-LOCK
    BY your-table.sort-field1:
    i-record-count = i-record-count + 1.

    /* 跳过前50条记录 */
    IF i-record-count <= 50 THEN NEXT.
    /* 取到第60条后停止（即51-60共10条） */
    IF i-record-count > 60 THEN LEAVE.

    DISPLAY your-table.field1 your-table.field2.
END.

关键注意事项 #

• 排序是分页稳定的核心：无论使用哪种方法，都必须通过BY子句指定明确的排序字段，避免因记录顺序不稳定导致分页数据混乱。
• 锁机制：示例中使用NO-LOCK（无锁读取），可根据业务需求调整为SHARE-LOCK或EXCLUSIVE-LOCK。
• 性能优化：对于大数据量表，确保排序字段已创建索引，能显著提升SKIP和循环计数的执行效率，避免全表扫描。

内容的提问来源于stack exchange，提问作者asandroid