SAP屏幕设计器专题:下拉列表框(四)

     既然是屏幕设计器,自然要有下拉列表框。这里我们来做一下。

    首先,SE38建立一个程序,SE51拖出一个文本框控件,下拉框的属性设置为Listbox,名称为VALUE:

    

    再拖出一个文本框,设置为只读属性,如下:

    

    屏幕设计页面如下:

    

    屏幕设计属性的代码如下:

    
    PROCESS ON VALUE-REQUEST.  代表定义调用F4帮助或者单击该栏位所触发的事件。    

    FIELD VALUE MODULE SETVALUE.  代表为下拉列表框赋值。

    在SE38中,程序的开头记得Key入如下代码:

    TYPE-POOLS: VRM.  这个是下拉列表框引用所要用到的。

    接下来声明变量,与控件名称对应。
    DATA:VALUE(10TYPE C,   "下拉框
             DESC(10TYPE C.    "说明

    START-OF-SELECTION.
       CALL SCREEN 100.   "载入画面

    载入下拉列表框的MODULE:


MODULE SETVALUE INPUT.

  DATALV_NAME TYPE VRM_ID,

        LT_LIST TYPE VRM_VALUES,

        LW_VALUE LIKE LINE OF LT_LIST.

  CLEAR:LT_LIST,LW_VALUE.

  LV_NAME 'VALUE'.

  "读取数据表内容至内表
  SELECT VALUE INTO LW_VALUE-KEY FROM ZCODE_MSTR WHERE FIDNAME 'LIST'.

    LW_VALUE-TEXT LW_VALUE-KEY.

    APPEND LW_VALUE TO LT_LIST.

  ENDSELECT.

  CALL FUNCTION 'VRM_SET_VALUES'     "调用函数填充内容

    EXPORTING

      ID     LV_NAME

      VALUES LT_LIST.

ENDMODULE.                 " SETVALUE  INPUT


  "根据下拉框内容的值进行读取相应的说明
FORM GETDESC .

  SELECT CMMT INTO DESC FROM ZCODE_MSTR WHERE FIDNAME 'LIST' AND VALUE VALUE.

  ENDSELECT.

ENDFORM.                    " GETDESC


"用户操作代码
MODULE USER_COMMAND_0100 INPUT.

  CASE SY-UCOMM.

    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.

      LEAVE PROGRAM.

    WHEN 'SAVE'.  "显示下拉框的值

      MESSAGE VALUE TYPE 'I'.

    WHEN 'THELIST' OR 'ENTER'.   "下拉列表框内容变更之后的动作

      PERFORM GETDESC.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

ZCODE_MSTR内容如下:

最后,本程序运行结果如下:



程序做到了很好的互动,下拉列表框内容改变了之后,旁边的说明自动会抓去相应的内容显示。

posted @ 2011-05-23 22:47  SAP梦心  阅读(2748)  评论(0编辑  收藏  举报
鄙视一切不懂技术又装懂的小人!