ABAP中SELECTION-SCREEN 内表直接作为搜索帮助

  ABAP中SELECTION-SCREEN 直接表表作为搜索帮助

TABLES:V_USERNAME.

  DATA: LTAB_FIELDS LIKE HELP_VALUE OCCURS 0 WITH HEADER LINE,
        BEGIN OF LTAB_VALUES OCCURS 0,
          FELD(40) TYPE C,
        END OF LTAB_VALUES.

SELECT-OPTIONS:  SE_UNAME FOR V_USERNAME-bname.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR SE_UNAME-LOW.

clear LTAB_FIELDS[]. clear LTAB_VALUES[].
  LTAB_FIELDS-TABNAME    = 'V_USERNAME'.
  LTAB_FIELDS-FIELDNAME  = 'BNAME'.
  LTAB_FIELDS-SELECTFLAG = 'X'.  "X表示需要的值
  APPEND LTAB_FIELDS.

  LTAB_FIELDS-TABNAME    = 'V_USERNAME'.
  LTAB_FIELDS-FIELDNAME  = 'PERSNUMBER'.
  LTAB_FIELDS-SELECTFLAG = 'SPACE'.
  APPEND LTAB_FIELDS.

   LTAB_FIELDS-TABNAME    = 'V_USERNAME'.
  LTAB_FIELDS-FIELDNAME  = 'NAME_LAST'.
  LTAB_FIELDS-SELECTFLAG = 'SPACE'.
  APPEND LTAB_FIELDS.

 _select_ * FROM V_USERNAME .
   LTAB_VALUES-FELD = V_USERNAME-BNAME.
   APPEND LTAB_VALUES.
  ENDSELECT.

 CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
    EXPORTING
      FIELDNAME                 = 'BNAME'
      TABNAME                   = 'V_USERNAME'
      TITLE_IN_VALUES_LIST      = '_select a value'
    IMPORTING
      SELECT_VALUE              = SE_UNAME-LOW
    TABLES
      FIELDS                    = LTAB_FIELDS
      VALUETAB                  = LTAB_VALUES
    EXCEPTIONS
      FIELD_NOT_IN_DDIC         = 01
      MORE_THEN_ONE_SELECTFIELD = 02.
*      NO_SELECTFIELD            = 03