pairs.p
| 1 |
def var i as int. |
|---|---|
| 2 |
def temp-table tt-table field f1 as int |
| 3 |
field f2 as char format "x(10)" |
| 4 |
field f3 as char format "x(10)" |
| 5 |
field f4 as char format "x(10)" |
| 6 |
field f5 as char format "x(10)". |
| 7 |
repeat i = 1 to 20: |
| 8 |
create tt-table. tt-table.f1 = i. tt-table.f2 = "Test " + string(i). |
| 9 |
end. |
| 10 |
|
| 11 |
define query qtt-table for tt-table. |
| 12 |
|
| 13 |
define browse brws query qtt-table |
| 14 |
display |
| 15 |
tt-table.f1 |
| 16 |
tt-table.f2 view-as combo-box list-item-pairs "123", "456", "768", "898" |
| 17 |
tt-table.f3 view-as combo-box list-item-pairs "123,456,768","898" |
| 18 |
tt-table.f4 view-as combo-box list-items "123", "456", "768", "898" |
| 19 |
tt-table.f5 view-as combo-box list-items "123,456,768", "8988" |
| 20 |
enable all |
| 21 |
with size 60 by 10 no-column-scrolling font 7. |
| 22 |
|
| 23 |
define frame fr |
| 24 |
brws |
| 25 |
with title "frame 1" size 70 by 15. |
| 26 |
|
| 27 |
open query qtt-table for each tt-table. |
| 28 |
enable all with frame fr. |
| 29 |
|
| 30 |
wait-for go of frame fr. |