嗨，

如果您可以提供一些代码，那就更好了。

以下是INITIALIZATION事件中的一个例子

 TYPE-POOLS：vrm。


 数据：gt_list TYPE vrm_values。
 数据：gwa_list类型vrm_value。
 数据：gt_values dynpread的类型表，
       gwa_values TYPE dynpread。


 数据：gv_selected_value（10）TYPE c。
 * -------------------------------------------------  ------------- *
 *选择画面
 * -------------------------------------------------  ------------- *
 参数：列表类型c作为列表框的可见长度20。
 * -------------------------------------------------  ------------- *
 *在选择屏幕上
 * -------------------------------------------------  ------------- *
 在"选择屏幕打开"列表中。
   清除：gwa_values，gt_values。
   刷新gt_values。
   gwa_values-fieldname ='LIST'。
   将gwa_values附加到gt_values。
   通话功能'DYNP_VALUES_READ'
     出口
       dyname = sy-cprog
       dynumb = sy-dynnr
       translate_to_upper ='X'
     桌子
       dynpfields = gt_values。


   读取表gt_values索引1到gwa_values中。
   如果sy-subrc = 0并且gwa_values-fieldvalue不是INITIAL。
     读表gt_list INTO gwa_list
                       WITH KEY键= gwa_values-fieldvalue。
     如果sy-subrc = 0。
       gv_selected_value = gwa_list-text。
     万一。
   万一。
 * -------------------------------------------------  ------------- *
 *初始化
 * -------------------------------------------------  ------------- *
 初始化。
   gwa_list-key ='1'。
   gwa_list-text ='产品'。
   将gwa_list附加到gt_list。
   gwa_list-key ='2'。
   gwa_list-text ='集合'。
   将gwa_list附加到gt_list。
   gwa_list-key ='3'。
   gwa_list-text ='颜色'。
   将gwa_list附加到gt_list。
   gwa_list-key ='4'。
   gwa_list-text ='计数'。
   将gwa_list附加到gt_list。


   通话功能" VRM_SET_VALUES"
     出口
       id ='LIST'
       值= gt_list
     例外情况
       id_illegal_name = 1
       其他= 2。
 * -------------------------------------------------  ------------- *
 *开始选择
 * -------------------------------------------------  ------------- *
 选择开始。
   写：/gv_selected_value。
 

AT SELECTION-SCREEN OUTPUT事件中的另一个

报告ZLISBOX。
 TYPE-POOLS：vrm。
  数据：名称TYPE vrm_id，
        列出TYPE vrm_values，
        值，例如LINE OF清单。

 参数：ps_parm（10）作为列表框的可见长度10。


 选择屏幕输出时。
   名称='PS_PARM'。  " SELECTION-SCREEN上的参数PS_PARAM
   值键=" 1"。
   value-text ='第1行'。
   将值追加到清单。

   值键='2'。
   value-text ='第2行'。
   将值追加到清单。


   通话功能" VRM_SET_VALUES"
     出口编号=名称
               值=列表。

 选择开始。
   写：/'参数：'，ps_parm。