Kbase P6165: How to insert a row into an empty browse widget?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
22/10/2004 |
|
Status: Unverified
GOAL:
How to insert a row into an empty browse widget?
FACT(s) (Environment):
Progress 8.x
Progress 9.x
FIX:
Use INSERT-ROW method.
Here is an example:
DEF TEMP-TABLE xx
FIELD X AS CHARACTER
FIELD Y AS CHARACTER.
DEFINE QUERY q FOR xx .
DEFINE BROWSE b
QUERY q
DISPLAY
X FORMAT "x(12)"
Y FORMAT "x(12)"
ENABLE X Y
with SIZE 60 BY 10
.
DEFINE BUTTON b1
LABEL "Add".
DEFINE FRAME f
b SKIP
b1 SKIP
WITH WIDTH 78 SIDE-LABELS.
ON 'choose':U OF b1 IN FRAME f
DO:
BROWSE b:INSERT-ROW( "AFTER" ).
END.
OPEN QUERY q FOR EACH xx.
ENABLE b1 b WITH FRAME f.
VIEW FRAME f.
APPLY "CHOOSE" TO b1 IN FRAME f.
WAIT-FOR CLOSE OF FRAME f.