这是我目前的代码
def var hbTT作为句柄。
每个Cust: hbTT:缓冲创建()。 分配 hbTT :: Name = Cust.Name hbTT :: address = Cust.Address。结束。现在我要做的就是循环……
你将无法以这种方式进行循环,因为每个都需要一个静态名称。 相反,试试这个:
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.