Question

接受客户编号，然后将每个订单和项目的详细信息输出到编辑器小部件。在编辑器小部件中显示它们（editor-1作为对象名称）。

define temp-table ttcustomer
field custnum like customer.cust-num
field cname like customer.name
field orders like order.order-num
field items like item.item-num
field itemname like item.item-name .


find first customer WHERE customer.cust-num = input f1 NO-LOCK .

create ttcustomer . 

  assign
  ttcustomer.custnum = customer.cust-num
  ttcustomer.cname     = customer.name. 



 for each order WHERE Order.cust-num = input f1  NO-LOCK .

  assign
  ttcustomer.orders   = order.order-num.

  for each order-line where order-line.order-num = order.order-num no-lock.


     for each item where item.item-num = order-line.item-num no-lock.

     assign 
     ttcustomer.items = item.item-num
     ttcustomer.itemname = item.item-name. 
     end.
  end.
end.

Answer 1

我不知道你为什么要在编辑器上显示它。因此，我假设您希望将每个循环中收集的信息连接到编辑器中。所以在最后一次结束后，你可以这样做：

define variable editor-1 as character view-as editor.
for each ttcustomer:
    assign editor-1 = editor-1 + ttcustomer.items + ' ' + ttcustomer.itemname + chr(13). 
end.
display editor-1.

如果chr（13）无法跳过一行，请尝试chr（10）。 PS：编辑器实际上可能不是你要显示它的小部件。我会用浏览器。但是因为问题要求编辑在那里。 PS2：你没有分配你放在临时表上的其他字段，所以我没有显示它们。但这只是将它们添加到上面的分配行中的问题，不要忘记空格，破折号或任何你想用作分隔符的东西。

在数据库中搜索后，如何使用progress 4gl在编辑器小部件中显示结果字段值

1 个答案: