ABAP——动态的选择ALV输出的内表

FORM frm_display_data .

  PERFORM fill_fieldcat.
  FIELD-SYMBOLS <lt_out> TYPE STANDARD TABLE.
  IF pa_all = 'X'.
    ASSIGN ('gt_out') TO <lt_out>.
  ELSE.
    ASSIGN ('gt_out2') TO <lt_out>.
  ENDIF.

  gs_layout-colwidth_optimize = 'X'."定义列自动宽度优化
  gs_layout-zebra             = 'X'."定义条纹显示
*  gs_layout-box_fieldname = 'MARK'."多选框
*  gs_layout-edit_mode = 'D'."多选框的选择模式，D为多选
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat[]
      i_callback_pf_status_set = 'FRM_SET_PF_STATUS_0100' " 菜单
      i_callback_user_command  = 'FRM_USER_COMMAND_0100' "自定义菜单执行代码
*     it_events                =
*     is_print                 = w_print
    TABLES
      t_outtab                 = <lt_out> "要输出的内表
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.



ENDFORM.