如何在退出單元格時自動填充瀏覽進度中的單元格

Question

示例：

我瀏覽了「代碼項目」，「項目說明」列。在放置填充物時，物品的代碼會自動填充單元格，並使用臨時表的物品描述。

任何人都知道我該怎麼做？

Answer 1

您想在用戶在代碼列中輸入內容後自動填充描述列嗎？您可以在瀏覽器上使用ON LEAVE觸發器來做到這一點。下面是一個示例，用於在用戶離開代碼時將代碼列複製到說明列。您也可以使用ON VALUE-CHANGED在用戶輸入代碼時更新描述。

DEFINE TEMP-TABLE ttBrs NO-UNDO 
    FIELD Code AS CHARACTER 
    FIELD Descr AS CHARACTER. 

DEFINE QUERY qBrs FOR ttBrs SCROLLING. 

DEFINE BROWSE brs1 
    QUERY qBrs DISPLAY 
     ttBrs.Code COLUMN-LABEL "Code Item" 
     ttBrs.Descr COLUMN-LABEL "Item Description" 
     ENABLE ttBrs.Code ttBrs.Descr 
    WITH NO-ROW-MARKERS SEPARATORS SIZE 80 BY 10 FONT 4 FIT-LAST-COLUMN. 

ON LEAVE OF ttBrs.Code IN BROWSE brs1 
DO: 
    ttBrs.Descr:SCREEN-VALUE IN BROWSE brs1 = ttBrs.Code:SCREEN-VALUE. 
END. 

DEFINE FRAME fFrame 
    brs1 AT ROW 1 COL 1 
    WITH VIEW-AS DIALOG-BOX SCROLLABLE. 

CREATE ttBrs. 

VIEW FRAME fFrame. 
OPEN QUERY qBrs FOR EACH ttBrs. 
brs1:SENSITIVE = TRUE. 

WAIT-FOR "GO" OF FRAME fFrame.