嗨，

检查以下链接

[列表框| http：//wiki .sdn.sap.com/wiki/display/Snippets/Drop-down 列表框在选择屏幕中 对于 Windows NT， R3 发布 4.7]

带有框架标题文本的b1块选择屏幕开始 -001。
 选择选项：工厂用于eban-werks没有间隔，没有扩展。
 选择选项：req_no FOR eban-banfn。
 选择选项：r_date FOR eban-badat。
 选择选项：req_by for eban-ernam没有间隔，没有扩展。
 选择选项：p_org for ekko-ekorg没有间隔，没有扩展。
 选择选项：doc_type FOR eban-bsart。
 参数：p_vendor AS列表框可见长度50。
 参数：p_mat AS列表框可见长度50。
 参数：p_glnum作为列表框可见长度50。
 选择选项：用于bseg-aufnr的int_ord。
 参数：p_ccen作为列表框可见长度50。
 参数：p_dpt作为列表框可见长度50。
 选择选项：cre_i for eban-estkz没有间隔，没有扩展。
 参数：rel_c AS列表框可见长度50。
 选择选项：po_n for ekko-ebeln。
 选择选项：po_date for ekko-bedat。
 块b的选择屏幕结束。


 带有标题标题文本002的b2块的选择屏幕开始。
 参数：待定的复选框。
 参数：批准为复选框。
 参数：AS复选框被拒绝。
 b2块的选择屏幕结束。


 具有框架标题文本003的b3块的选择屏幕开始。
 参数：摘要RADIOBUTTON GROUP rb1。
 参数：详细信息RADIOBUTTON GROUP rb1。
 b3。选择屏幕结束。
 * ------------------下拉列表选择屏幕的声明------------------
 初始化。
   TYPE-POOLS：vrm。
   类型：开始于ty_vendor，
            lifnr TYPE lfa1-lifnr，
            name1 TYPE lfa1-name1，
          结束于ty_vendor。
   类型：始于ty_material，
            matnr TYPE eban-matnr，
            maktx TYPE makt-maktx，
          结束于ty_material。
   类型：开始于ty_glnum，
            saknr TYPE skat-saknr，
            txt20类型skat-txt20，
          结束于ty_glnum。
   类型：开始于ty_ccen，
            kostl TYPE ekkn-kostl，
            ktext TYPE cskt-ktext，
          结束于ty_ccen。
   类型：开始于ty_dpt，
            zzmmdepart TYPE eban-zzmmdepart，
          结束于ty_dpt。




   数据：ty_vendor的gt_vendor类型标准表，
         gt_material ty_material的类型标准表，
         gt_glnum ty_glnum类型标准表，
         gt_ccen ty_ccen类型标准表，
         gt_dpt ty_dpt类型标准表，
         wa_vendor TYPE ty_vendor，
         wa_material TYPE ty_material，
         wa_glnum TYPE ty_glnum，
         wa_ccen TYPE ty_ccen，
         wa_dpt类型ty_dpt。
   数据：g_id TYPE vrm_id，
         g_values TYPE vrm_values，
         wa_values与g_values相似。




   从lfa1到表gt_vendor中选择DISTINCT lifnr name1。
   在gt_vendor处循环进入INTO wa_vendor。
     wa_values-key = wa_vendor-lifnr。
     wa_values-text = wa_vendor-lifnr &&'-'&& wa_vendor-name1。
     g_id ='p_vendor'。
     执行列表框。
     将wa_values附加到g_values。
     清除wa_values。
   结局。
   免费：g_values。


   SELECT DISTINCT a〜matnr，
                   b〜maktx
      从eban作为a内部联接makt作为b
     开a〜matnr = b〜matnr
     进入表@gt_material。
   循环至gt_material INTO wa_material。
     wa_values-key = wa_material-matnr。
     wa_values-text = wa_material-matnr &&'-'&& wa_material-maktx。
     g_id ='p_mat'。
     执行列表框。
     将wa_values附加到g_values。
     清除wa_values。
   结局。
   免费：g_values。


   从skat到表gt_glnum中选择DISTINCT saknr txt20。
   将gt_glnum循环到INTO wa_glnum中。
     wa_values-key = wa_glnum-saknr。
     wa_values-text = wa_glnum-saknr &&'-'&& wa_glnum-txt20。
     g_id ='p_glnum'。
     执行列表框。
     将wa_values附加到g_values。
     清除wa_values。
   结局。
   免费：g_values。


   SELECT DISTINCT a〜kostl，
                   b〜ktext
     从ekkn作为内部联接cskt作为b
     在a〜kostl = b〜kostl到表@gt_ccen中。
   循环至gt_ccen INTO wa_ccen。
     wa_values-key = wa_ccen-kostl。
     wa_values-text = wa_ccen-kostl &&'-'&& wa_ccen-ktext。
     g_id ='p_ccen'。
     执行列表框。
     将wa_values附加到g_values。
     清除wa_values。
   结局。
   免费：g_values。
   SELECT DISTINCT zzmmdepart from
     退出INTO TABLE @gt_dpt。
   循环至gt_dpt，进入wa_dpt。
     wa_values-key = wa_dpt-zzmm离开。
     wa_values-text = wa_dpt-zzmm离开。
     g_id ='p_dpt'。
     执行列表框。
     将wa_values附加到g_values。
     清除wa_values。
   结局。






 表单列表框。
   通话功能" VRM_SET_VALUES"
     出口
       id = g_id
       值= g_值
 *例外情况
 * ID_ILLEGAL_NAME = 1
 *其他= 2
     。
   如果sy-subrc <> 0。
 *在这里实施适当的错误处理
   万一。
 ENDFORM。


 * -------------------------------------------------  ------------------------------