Kbase 13783: Example on using database fields to build a RADIO SET widget
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
Example on using database fields to build a RADIO SET widget
Below is an example of some code that would use database fields to
build a RADIO-SET widget in the UIB.
Since the UIB won't allow you to start with a radio set with no items
in it, this example assumes that to start you have a radio set with
only one item, called "Item 1". This serves as a placeholder until
you're ready to delete it and load the items you want. Notice also
that as you add each new item to the radio set you must increase its
height.
DEF VAR x AS LOGICAL.
DEF VAR i AS INTEGER.
/* first delete the item already there */
x = radio-set-1:DELETE("Item 1").
i = 1.
FOR EACH salesrep NO-LOCK:
x = radio-set-1:ADD-LAST(salesrep.sales-rep, i).
radio-set-1:HEIGHT-CHARS = radio-set:HEIGHT-CHARS + 1.
i = i + 1.
END.
Progress Software Technical Support Note # 13783