ALV DATA_CHANGE事件处理 数据操作完后自动刷新

TYPE-POOLS:slis.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA: gt_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE.


"刷新ALV
DATA: gv_grid TYPE REF TO cl_gui_alv_grid.

DATA:BEGIN OF gt_data OCCURS 0,
       key1(1),
       key2(2),
     END OF gt_data.

START-OF-SELECTION.
  PERFORM inital.
  DEFINE fill_fdcat.
    CLEAR gt_fieldcat.
    gt_fieldcat-fieldname = &1.
    gt_fieldcat-seltext_l = &2.
*    gt_fieldcat-key = &3.
    gt_fieldcat-edit = &3.
    APPEND gt_fieldcat.
  END-OF-DEFINITION.

  fill_fdcat 'KEY1' 'KEY1' 'X'.
  fill_fdcat 'KEY2' 'KEY2' ''.

  DATA: t_events TYPE slis_t_event WITH HEADER LINE.
  t_events-name = slis_ev_data_changed.
  t_events-form = 'ALV_DATA_CHANGED'.
  APPEND t_events.

  DATA: i_grid_settings TYPE  lvc_s_glay .
  i_grid_settings-edt_cll_cb  = 'X' .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      i_grid_settings    = i_grid_settings
      it_fieldcat        = gt_fieldcat[]
      it_events          = t_events[]
    TABLES
      t_outtab           = gt_data[].


关键词:

网友评论

发表评论