드랍다운 리스트 예제 가지고계신분 있으시면 좀 올려주세요
혼자서 실습 중인데 책만가지고 하기가 너무 힘드네요(책이 중간에 빼먹은부분이 많아서...)
수도맞추기 프로그램 있으시면 그것 올려주시면 감사하겠습니다
좋은하루들 되세요~
댓글 4
-
activeman
2008.03.31 23:43
-
초보아밥퍼
2008.04.01 00:38
TYPE-POOLS VRM. <---- 선언해주시고요.
구현하는 방법은 스크린 페인터상에서 원하는 필드(P_ZGUBUN)에 dropdown 속성을 list box
로 설정합니다. 이때 vislg 을 원하는 값 만큼 늘려줍니다.
그러면 화면상의 세팅은 끝났습니다.
다음으로 pbo 화면에서
module list box.
하시고 위에 있는 소스처럼 하시면 됩니당... ^^.
참고로 SELECT-OPTION 에서도 리스트박스 구현이 가능합니다.
PARAMETERS : P_AAA LIKE TABLE-FIELD AS LISTBOX VISIBLE LENGTH 20.
이밖에도 구현방법은 여럿 있어욥 참고....
-
아밥입문자
2008.04.01 02:17
TYPE-POOLS: VRM.
DATA: IT_VAL TYPE VRM_VALUES,
W_LINE LIKE LINE OF IT_VAL,
W_LINE1 LIKE LINE OF IT_VAL,
W_LINE2 LIKE LINE OF IT_VAL.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*PARAMETERS: P_CARRID LIKE SFLIGHT-CARRID ,
* P_CONNID LIKE SFLIGHT-CONNID .
PARAMETERS: P_CARRID LIKE SFLIGHT-CARRID AS LISTBOX
VISIBLE LENGTH 25 OBLIGATORY,
P_CONNID LIKE SFLIGHT-CONNID AS LISTBOX
VISIBLE LENGTH 25 OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN.
INITIALIZATION.
SELECT CONNID CARRID
FROM SFLIGHT INTO (W_LINE-KEY, W_LINE-TEXT).
APPEND W_LINE TO IT_VAL.
CHECK P_CARRID IS INITIAL.
P_CARRID = W_LINE-KEY.
ENDSELECT.
SELECT CARRID CONNID
FROM SFLIGHT INTO (W_LINE1-KEY, W_LINE1-TEXT).
APPEND W_LINE1 TO IT_VAL.
CHECK P_CONNID IS INITIAL.
P_CONNID = W_LINE-KEY.
ENDSELECT.
AT SELECTION-SCREEN OUTPUT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'P_CARRID'
VALUES = IT_VAL.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'P_CONNID'
VALUES = IT_VAL. -
bizarre
2008.04.01 20:47
많은 조언들 감사합니다 덕분에 해결되었네요 ^^
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
REFRESH: list.
name = 'P_ZGUBUN'. ==> 필드의 이름
value-key = '0'.
value-text = '전 체'.
APPEND value TO list.
value-key = '1'.
value-text = '발행자보고용'.
APPEND value TO list.
value-key = '2'.
value-text = '발행자보관용'.
APPEND value TO list.
value-key = '3'.
value-text = '소득자보관용'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.