4GL ABL Openedge 循环通过手柄？

【问题标题】：4GL ABL Openedge loop through handle?4GL ABL Openedge 循环通过手柄？
【发布时间】：2017-09-26 20:27:18
【问题描述】：

这是我当前的代码

def var hbTT as handle.

for each Cust:
  hbTT:buffer-create().
  assign
    hbTT::Name    = Cust.Name
    hbTT::address = Cust.Address.
end.

现在我想做的是循环遍历 hbtt。我怎样才能做到这一点？

我试过了

for each hbTT:
  /* Do something */
end.

我得到的错误是

未知或不明确的表 hbTT。【725】

谢谢

【问题讨论】：

标签： progress-4gl openedge 4gl

【解决方案1】：

您将无法以这种方式进行循环，因为每个循环都需要一个静态名称。相反，试试这个：

DEFINE VARIABLE hQuery AS HANDLE      NO-UNDO.

create query hQuery.
hQuery:set-buffers(hbtt).
hquery:query-prepare('for each tt'). /* <-- Where tt is the original buffer name */
hquery:query-open().

hquery:get-first().
do while not hquery:query-off-end:
    disp hbtt::name hbtt::address .
    hquery:get-next().
end.

【讨论】：

谢谢你正是我需要的