matinal：ChatGPT帮忙写一个动态程序，实现任意表数据的展示

matinal

发布于 2024-04-02 08:32:27

760

发布于 2024-04-02 08:32:27

🚀欢迎来到本文🚀 🍉个人简介：matinal，目前职业是IT行业，一个正在慢慢前行的普通人。 🏀系列专栏：涵盖SAP各模块，Python，Excel，人工智能等 💡 其他专栏：一些平时学习的技术，感兴趣的小伙伴可以看看。 🍔公众号：matinal 🎁希望各位→点赞👍 + 收藏⭐️ + 留言📝 ⛱️万物从心起，心动则万物动🏄‍♂️
前言：ChatGPT帮忙写一个动态程序，实现任意表数据的展示。 🦙（工作遇到傻逼，千万要远离。道路千万条，远离傻逼第一条）

REPORT Z_DISPLAY_TABLE_DATA.

* 定义输入参数
PARAMETERS: p_table_name TYPE tabname LOWER CASE.

* 检查输入参数是否为空
IF p_table_name IS INITIAL.
  WRITE: 'Please provide a table name.'.
  EXIT.
ENDIF.

* 动态查询表数据
DATA: lt_data TYPE TABLE OF REF TO data.

* 根据输入的表名创建动态内表
CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog = lt_fieldcatalog    " 用于定义表结构
  IMPORTING
    ep_table        = lt_data.           " 动态内表

* 检查动态内表是否为空
IF lt_data IS INITIAL.
  WRITE: 'No data found for the specified table.'.
  EXIT.
ENDIF.

* 创建动态ALV网格
DATA: lo_alv_grid TYPE REF TO cl_gui_alv_grid.
CREATE OBJECT lo_alv_grid
  EXPORTING
    i_parent = cl_gui_container=>screen0.

* 设置动态ALV网格的字段目录
DATA: lt_fieldcatalog TYPE lvc_t_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
  EXPORTING
    i_structure_name = p_table_name
  CHANGING
    ct_fieldcat      = lt_fieldcatalog
  EXCEPTIONS
    OTHERS           = 4.

IF sy-subrc <> 0.
  WRITE: 'Error in fetching field catalog for the specified table.'.
  EXIT.
ENDIF.

* 显示动态ALV网格
CALL METHOD lo_alv_grid->set_table_for_first_display
  EXPORTING
    i_structure_name = p_table_name
  CHANGING
    it_outtab        = lt_data
    it_fieldcatalog  = lt_fieldcatalog.

* 检查是否有数据可显示
IF lo_alv_grid->get_number_of_rows( ) IS INITIAL.
  WRITE: 'No data found for the specified table.'.
ENDIF.

请注意，这只是一个示例代码，您可以根据自己的需求进行修改和扩展。在实际使用时，您需要在ABAP环境中创建一个报表，并将以上代码复制到该报表中运行。此代码将根据输入的表名动态查询和显示表数据，并使用ALV网格进行展示。在代码中，输入参数p_table_name用于指定要显示数据的表名，通过调用cl_alv_table_create=>create_dynamic_table方法创建动态内表，然后使用cl_gui_alv_grid类创建动态ALV网格，并最终通过调用lo_alv_grid->set_table_for_first_display方法显示数据。