通用程序从浏览中生成报告4gl

Question

程序应处理任何链接到浏览的表格意味着它应该是通用的。 请帮忙。

/* below code is sample to Show the data in message box , 
     but only first data it is showing right now.*/ 

    DEFINE INPUT PARAMETER hRecord AS WIDGET-HANDLE. 
    DEFINE INPUT PARAMETER hQuery AS WIDGET-HANDLE . 

    DEF VAR hFld  AS HANDLE NO-UNDO. 
     DEFINE VARIABLE iCOunt AS INTEGER INITIAL 0. 
     DEFINE VARIABLE i AS INTEGER NO-UNDO. 
     DEFINE VARIABLE j AS integer INITIAL 1. 


     MESSAGE hRecord:NUM-COL VIEW-AS ALERT-BOX. 

     DO WHILE TRUE: 
       hQuery:GET-NEXT(). 
       iCount = iCount + 1. 


       DO i = 1 TO hRecord:NUM-COL: 
         hfld = hRecord:GET-BROWSE-COL(i). 
        MESSAGE hfld:SCREEN-VALUE. 

       END. 
        j = j + 1. 


     END. 
     MESSAGE iCount VIEW-AS ALERT-BOX. 
    END PROCEDURE. 

Answer 1

你可以得到一个缓冲场像这样：

hfld = hRecord:GET-BUFFER-FIELD(i). 

然后获取字段的值：

DISPLAY hfld:BUFFER-VALUE. 

请参阅该文档为这些东西做一个解释。