如何计算正在进行的 4GL 中一个字段的总和？

Question

我已经编写了一个查询来计算一个字段中的总和，但我可以获得总记录。让我分享我写的东西。

DEFINE VARIABLE I AS INTEGER NO-UNDO.
FIND FIRST shth_pus_head WHERE shth_pus_head.push_id = "P0000078" NO-LOCK 
NO-ERROR.
FOR EACH shtd_pus_det OF shth_pus_head NO-LOCK:
i = i + 1.
END.
DISPLAY i.

我需要的是当我在数量列中计算总和时，我希望总和 = 1560。

（备注-数量列table字段为shtd_pus_det.qty）

Check the attached image

Answer 1

您的代码没有计算总和。它计算记录的数量。要总结这些记录中的 shtd_pus_det.qty 字段，您可以编写如下代码：

define variable tot_qty as integer no-undo.

for each shtd_pus_det no-lock where shtd_pus_det.push_id = "P0000078":
  tot_qty = tot_qty + shtd_pus_det.qty.
end.
display tot_qty.

如何计算正在进行的 4GL 中一个字段的总和？

How to calculate total sum in one field in progress 4GL?

progress-4gl

openedge