如何将字段设置成带下拉框的

***************************************
METHOD get_p_category_id.
  CASE iv_property.
    WHEN if_bsp_wd_model_setter_getter=>fp_fieldtype.
      rv_value = cl_bsp_dlc_view_descriptor=>field_type_picklist.
    WHEN if_bsp_wd_model_setter_getter=>fp_server_event.
      rv_value = 'CATEGORY_DDLB_SELECT'.
  ENDCASE.


ENDMETHOD.


**************************************
GR_DDLB_PRIORITY     INSTANCE ATTRIBUTE     PRIVATE  TYPE REF  TO   CL_CRM_UIU_DDLB.
在类的属性里定义
***********************************************
METHOD GET_V_PRIOTITY.         "下拉框
  DATA: lt_ddlb     TYPE bsp_wd_dropdown_table,
        ls_ddlb     TYPE bsp_wd_dropdown_line.
  DATA GR_DDLB_DISTRICT TYPE REF TO CL_CRM_UIU_DDLB.
  CREATE OBJECT gr_ddlb_DISTRICT EXPORTING iv_source_type = 'T'.
*   add initial line
      ls_ddlb-key = ' '.
    LS_DDLB-VALUE = ' '.
    APPEND ls_ddlb TO lt_ddlb.
    ls_ddlb-key = '01'.
    LS_DDLB-VALUE = '葛'.
    APPEND ls_ddlb TO lt_ddlb.
IF sy-subrc = 0.
      gr_ddlb_DISTRICT->set_selection_table( lt_ddlb ).
    ENDIF.


  rv_valuehelp_descriptor = gr_ddlb_DISTRICT.
METHOD.




***************************************


method GET_DQUERY_DEFINITIONS.
*CALL METHOD SUPER->GET_DQUERY_DEFINITIONS
*  RECEIVING
*    RT_RESULT =
*    .
   data:
   ls_ddlb type CRMS_THTMLB_SEARCH_DDLB_NVP.


  field-symbols: type CRMS_THTMLB_SEARCH_FIELD_INFO.


  CALL METHOD SUPER->GET_DQUERY_DEFINITIONS
    RECEIVING
      RT_RESULT = rt_result.


* DDLB for field "DESCRIPTION"
  read table rt_result with key field = 'SEX' assigning .
  if sy-subrc = 0.
    ls_ddlb-key   = ' '.
    ls_ddlb-value = ' '.
     append ls_ddlb to -DDLB_OPTIONS.
    ls_ddlb-key   = '男'.
    ls_ddlb-value = '男'.
    append ls_ddlb to -DDLB_OPTIONS.
    ls_ddlb-key   = '女'.
    ls_ddlb-value = '女'.
    append ls_ddlb to -DDLB_OPTIONS.
  endif.
endmethod.