Consultor Eletrônico



Kbase P60468: How to list the table name and field name of each column of
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   23/12/2003
Status: Unverified

GOAL:

How to list the table name and field name of each column of a browse widget?

FIX:

The following code loops through the columns of a static browse widget messaging the table and field name of each:

DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE h AS HANDLE NO-UNDO.

h = BROWSE-1:FIRST-COLUMN IN FRAME {&FRAME-NAME}.
DO i = 1 TO BROWSE-1:NUM-COLUMNS:
MESSAGE h:NAME h:TABLE
VIEW-AS ALERT-BOX INFO BUTTONS OK.
h = h:NEXT-COLUMN.
END.