比较两个正在进行的领域 4GL答案

【问题标题】：Comparision of two fields in progress 4GL比较两个正在进行的领域 4GL
【发布时间】：2012-10-03 09:11:27
【问题描述】：

我有用于表 Customer 的缓冲区 bufCustomer 用于表 Order 的全局缓冲区 gbufOrder。但是这段代码不起作用我写了这样的代码找到 bufCustomer，其中 bufCustomer.CustomerID = gbufOrder.CustomerID no-lock no-error。但是如果我检查表数据，数据就在那里，但是如果我写了上面这样的代码，它就不起作用了。有没有其他方法可以获取值？

【问题讨论】：

你需要展示你的实际代码。描述过于模糊，无法得出任何结论。
为客户定义缓冲区 bufCustomer。找到 bufCustomer where bufCustomer.CustomerID = gbufOrder.CustomerID no-lock no-error
我想获取客户名称，所以我写了这个部分工作，即获取某些记录的客户名称，但我想获取所有记录的客户名称。请帮助。
尝试在 FIND 语句中不使用 NO-ERROR 选项运行您的脚本。然后你应该会收到一个错误，它会向你解释，出了什么问题......
它显示为“找不到bufCustomer记录”。如何获取值？

标签： progress-4gl openedge

【解决方案1】：

带缓冲区：

DEFINE BUFFER gbufOrder FOR Order.
DEFINE BUFFER bufCustomer FOR Customer.

FIND FIRST gbufOrder NO-LOCK NO-ERROR.
IF AVAILABLE(gbufOrder) THEN
   DO:
      FIND bufCustomer where bufCustomer.CustNum = gbufOrder.CustNum NO-LOCK NO-ERROR.

      IF AVAILABLE(bufCustomer) THEN
         DO:
            DISP bufCustomer.name.
         END.
      ELSE
         DO:
            MESSAGE "Customer is not available!"
               VIEW-AS ALERT-BOX ERROR BUTTONS OK.
         END.
   END.
ELSE
   DO:
      MESSAGE "Order is not available!"
          VIEW-AS ALERT-BOX ERROR BUTTONS OK.
   END.

无缓冲

FIND FIRST Order NO-LOCK NO-ERROR.
IF AVAILABLE(Order) THEN
   DO:
      FIND Customer where Customer.CustNum = Order.CustNum NO-LOCK NO-ERROR.

      IF AVAILABLE(Customer) THEN
         DO:
            DISP Customer.name.
         END.
      ELSE
         DO:
            MESSAGE "Customer is not available!"
               VIEW-AS ALERT-BOX ERROR BUTTONS OK.
         END.
   END.
ELSE
   DO:
      MESSAGE "Order is not available!"
          VIEW-AS ALERT-BOX ERROR BUTTONS OK.
   END.

此程序适用于sports200 示例数据库（位于 PROGRESS / OpenEdge 安装目录中）

更新：

检查客户的可用性
添加不带 BUFFER 的示例代码

【讨论】：

这还不是 100% 正确的。您应该在 FIND bufCustomer 之后测试 bufcustomer 的可用性 - 就像在第一次 FIND 订单之后一样。否则会给你一些错误，比如客户不可用..