ALV动态列Demo
生活随笔
收集整理的這篇文章主要介紹了
ALV动态列Demo
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
*-------------ALV 相關--------------------------
DATA: wa_layo?TYPE lvc_s_layo.
DATA: wa_fcat?TYPE lvc_s_fcat,
??????it_fcat?TYPE lvc_t_fcat.
DATA? it_scol?TYPE lvc_t_scol.
DATA: g_grid?TYPE REF TO cl_gui_alv_grid.
FIELD-SYMBOLS: < dyn_table >?TYPE STANDARD TABLE,
???????????????< dyn_wa >,
???????????????< dyn_field >.
DATA: dy_table?TYPE REF TO data,
??????dy_line??TYPE REF TO data.
DATA: colname(10),
??????index(2).
* 列數(shù)
PARAMETERS: col?TYPE i.
CLEAR: it_fcat.
* 根據(jù)條件動態(tài)生成列
DO col TIMES.
??index = index + 1.
??CONCATENATE 'COL' index?INTO colname.
??PERFORM frm_add_fcat?USING:
?????????colname?'C' '描述' '100'.
ENDDO.
* 根據(jù)it_fact生成動態(tài)表
CALL METHOD cl_alv_table_create=>create_dynamic_table
??EXPORTING
????it_fieldcatalog = it_fcat
??IMPORTING
????ep_table??????? = dy_table.
ASSIGN dy_table->* TO < dyn_table >.
CREATE DATA dy_line?LIKE LINE OF < dyn_table >.
ASSIGN dy_line->* TO < dyn_wa >.
* 給表字段賦值
CLEAR: index.
DO col TIMES.
??index = index + 1.
??CONCATENATE 'COL' index?INTO colname.
??ASSIGN COMPONENT colname?OF STRUCTURE < dyn_wa>??TO < dyn_field >.
??< dyn_field > =?'列數(shù)據(jù)'.
ENDDO.
APPEND < dyn_wa >?TO < dyn_table >.
* 相當于給內表放入兩條數(shù)據(jù)
CLEAR: index.
DO col TIMES.
??index = index + 1.
??CONCATENATE 'COL' index?INTO colname.
??ASSIGN COMPONENT colname?OF STRUCTURE < dyn_wa >?TO < dyn_field >.
??< dyn_field > =?'列數(shù)據(jù)'.
ENDDO.
APPEND < dyn_wa >?TO < dyn_table >.
CLEAR: wa_layo.
wa_layo-zebra =?'X'.
wa_layo-cwidth_opt =?'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
??EXPORTING
????i_callback_program = sy-repid
????is_layout_lvc????? = wa_layo
????it_fieldcat_lvc??? = it_fcat
??TABLES
????t_outtab?????????? = < dyn_table >
??EXCEPTIONS
????program_error????? = 1
????OTHERS???????????? = 2.
IF sy-subrc <> 0.
??MESSAGE ID sy-msgid?TYPE sy-msgty?NUMBER sy-msgno
??WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*&---------------------------------------------------------------------*
*&????? Form? frm_add_fcat
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
*????? -->VALUE1???? text
*????? -->VALUE2???? text
*????? -->VALUE3???? text
*????? -->VALUE4???? text
*----------------------------------------------------------------------*
FORM frm_add_fcat?USING value1 value2 value3 value4.
??wa_fcat-fieldname = value1.
??wa_fcat-inttype = value2.
??wa_fcat-reptext = value3.
??wa_fcat-intlen?? = value4.
??APPEND wa_fcat?TO it_fcat.
??CLEAR: wa_fcat.
ENDFORM.??????????????????? "frm_add_fcat
總結
以上是生活随笔為你收集整理的ALV动态列Demo的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 创建动态内表
- 下一篇： SAP ABAP ALV构建动态输出列与