在Dialog中实现下拉框效果并对下拉框赋自定义的值

一般在Dialog中用下面一个函数，显示下拉列表，本例以f4函数来实现的

1. CALL FUNCTION 'VRM_SET_VALUES'
   
2.     EXPORTING
   
3.       ID              = 'P_LGORT'   "对应屏幕的input框名称
   
4.       VALUES          = I_VALUES[]
   
5.     EXCEPTIONS
   
6.       ID_ILLEGAL_NAME = 1
   
7.       OTHERS          = 2.

复制代码

PS：绘制屏幕时，设置下拉参数有两种：listbox；listbox with key
listbox with key 表示即使你的gui状态中不设置在下拉列表中显示key关键字，但他任然显示key
参数VALUES，是一个内表结构，含2个字段（key，value），选择listbox with key 时，感觉好像key，value都进入input框了，但实际只有key传入了，可以debug验证

程序执行效果：


1.主程序代码

1. DATA: OK_CODE TYPE SY-UCOMM.
   
2. DATA: BEGIN OF ITAB OCCURS 0,
   
3.          CARRNAME LIKE SCARR-CARRNAME,
   
4.       END OF ITAB.
   
5. CALL SCREEN 100.
   
6. *&---------------------------------------------------------------------*
   
7. *&      Module  CREATE_DROPDOWN_LIST  INPUT
   
8. *&---------------------------------------------------------------------*
   
9. *       text
   
10. *----------------------------------------------------------------------*
    
11. MODULE CREATE_DROPDOWN_LIST INPUT.
    
12.   REFRESH ITAB.
    
13.   CLEAR ITAB.
    
14.   ITAB-CARRNAME = '合格'.
    
15.   APPEND ITAB.
    
16.   ITAB-CARRNAME = '不合格'.
    
17.   APPEND ITAB.
    
18.   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    
19.     EXPORTING
    
20. *     DDIC_STRUCTURE         = ' '
    
21.       RETFIELD               = 'CARRNAME'
    
22. *     PVALKEY                = ' '
    
23. *     DYNPPROG               = ' '
    
24. *     DYNPNR                 = ' '
    
25. *     DYNPROFIELD            = ' '
    
26. *     STEPL                  = 0
    
27. *     WINDOW_TITLE           =
    
28. *     VALUE                  = ' '
    
29.      VALUE_ORG              = 'S'
    
30. *     MULTIPLE_CHOICE        = ' '
    
31. *     DISPLAY                = ' '
    
32. *     CALLBACK_PROGRAM       = ' '
    
33. *     CALLBACK_FORM          = ' '
    
34. *     CALLBACK_METHOD        =
    
35. *     MARK_TAB               =
    
36. *   IMPORTING
    
37. *     USER_RESET             =
    
38.     TABLES
    
39.       VALUE_TAB              = ITAB
    
40. *     FIELD_TAB              =
    
41. *     RETURN_TAB             =
    
42. *     DYNPFLD_MAPPING        =
    
43. *   EXCEPTIONS
    
44. *     PARAMETER_ERROR        = 1
    
45. *     NO_VALUES_FOUND        = 2
    
46. *     OTHERS                 = 3
    
47.             .
    
48.   IF SY-SUBRC <> 0.
    
49. * Implement suitable error handling here
    
50.   ENDIF.
    
51. 
    
52. ENDMODULE.                 " CREATE_DROPDOWN_LIST  INPUT

复制代码

2.自定义屏幕100
screen 100中的work flow：

1. PROCESS BEFORE OUTPUT.
   
2. * MODULE STATUS_0100.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. * MODULE USER_COMMAND_0100.
   
6. PROCESS ON VALUE-REQUEST.
   
7.   FIELD LISTID MODULE CREATE_DROPDOWN_LIST.

复制代码

layout：


PS：下拉框为什么含有空指？

游客，如果您要查看本帖隐藏内容请回复

学习了，谢谢分享

进来学习下

学习，谢谢分享

楼主棒棒哒

不错的 给个赞了

谢谢分享 学习 学习

感謝無私分享，學習了

来学习一下，谢谢分享

非常好，想看看 学习下

xuexiyixia

12345想看看 学习学习 厉害楼主

学习学习大神

谢谢大神分享！

真是难得给力的好资源啊，SAP顾问圈真是给力。

进来学习的,谢谢楼主

学习。。。。。。。

看看呢   谢谢分享

VRM_SET_VALUES