该功能可以根据用户在选择屏幕输入的表名、行数动态创建内表、动态查询然后根据获取到的数据进行ALV展示。代码如下REPORT ZMYDEMO001. DATA: GV_TABNAME TYPE TABNAME, GR_DATA_TABLE TYPE REF TO DATA, LO_TYPEDESCR TYPE REF TO CL_ABAP_TYPEDESCR, GO_STRUCT_DESCR TYPE REF TO CL_ABAP_STRUCTDESCR, GO_TABLE_DESCR TYPE REF TO CL_ABAP_TABLEDESCR, LV_LINE_COUNT TYPE I, LV_TABCLASS TYPE TABCLASS, LV_DOMNAME TYPE DOMNAME, LV_SCRTEXT_S TYPE SCRTEXT_S. * 字段描述存储全版本兼容结构 DATA: LT_DDFIELD TYPE STANDARD TABLE OF DFIES, LS_DDFIELD TYPE DFIES. DATA: LV_JSON_STRING TYPE STRING. *----------------------------------------------------------------------* * 字段符号声明 *----------------------------------------------------------------------* FIELD-SYMBOLS: FT_DATA TYPE ANY TABLE, FS_LINE TYPE ANY, FS_FIELD TYPE ANY. *----------------------------------------------------------------------* * 选择屏幕 *----------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK B1. PARAMETERS: P_NAME TYPE TABNAME OBLIGATORY, P_MAX TYPE I DEFAULT 500. SELECTION-SCREEN END OF BLOCK B1. *----------------------------------------------------------------------* * 主程序 *----------------------------------------------------------------------* START-OF-SELECTION. 1. 表名转大写 GV_TABNAME P_NAME. TRANSLATE GV_TABNAME TO UPPER CASE. 2. 验证表存在性和类型 SELECT SINGLE TABCLASS INTO LV_TABCLASS FROM DD02L WHERE TABNAME GV_TABNAME AND AS4LOCAL A AND AS4VERS 0000. IF SY-SUBRC 0. MESSAGE 错误表不存在或未激活 TYPE E. ENDIF. IF LV_TABCLASS TRANSP AND LV_TABCLASS VIEW. MESSAGE 错误只支持查询透明表和视图 TYPE E. ENDIF. 3. 读取字段描述内置类型数据元素双保险重要步骤 PERFORM GET_FIELD_DESC_ULTIMATE USING GV_TABNAME CHANGING LT_DDFIELD. 4. 动态创建内表核心步骤 TRY. LO_TYPEDESCR CL_ABAP_STRUCTDESCRDESCRIBE_BY_NAME( GV_TABNAME ). GO_STRUCT_DESCR ? LO_TYPEDESCR. GO_TABLE_DESCR CL_ABAP_TABLEDESCRCREATE( P_LINE_TYPE GO_STRUCT_DESCR P_TABLE_KIND CL_ABAP_TABLEDESCRTABLEKIND_STD ). CREATE DATA GR_DATA_TABLE TYPE HANDLE GO_TABLE_DESCR. CATCH CX_ROOT INTO DATA(LX_CREATE). MESSAGE 动态创建内表失败: LX_CREATE-GET_TEXT( ) TYPE E. ENDTRY. 5. 分配字段符号 ASSIGN GR_DATA_TABLE-* TO FT_DATA. IF FT_DATA IS NOT ASSIGNED. MESSAGE 错误无法分配内表字段符号 TYPE E. ENDIF. 6. 动态查询数据 IF P_MAX 0 OR P_MAX 2000. P_MAX 500. ENDIF. TRY. SELECT * UP TO P_MAX ROWS INTO TABLE FT_DATA FROM (GV_TABNAME). IF SY-SUBRC 0. MESSAGE SQL查询失败: 没有找到数据 TYPE I. ENDIF. CATCH CX_ROOT INTO DATA(LX_SELECT). MESSAGE SQL查询失败: LX_SELECT-GET_TEXT( ) TYPE E. ENDTRY. ALV展示 PERFORM SHOW_DATA_ALV. *----------------------------------------------------------------------* * 子例程1读取字段描述内置类型数据元素全支持 *----------------------------------------------------------------------* FORM GET_FIELD_DESC_ULTIMATE USING IV_TAB TYPE TABNAME CHANGING CT_FLD TYPE DFIES_TAB. CALL FUNCTION DDIF_FIELDINFO_GET EXPORTING TABNAME IV_TAB LANGU SY-LANGU ALL_TYPES X TABLES DFIES_TAB CT_FLD EXCEPTIONS OTHERS 1. IF SY-SUBRC 0. MESSAGE 获取字段信息失败 TYPE E. ENDIF. 为内置类型字段补全描述 LOOP AT CT_FLD INTO LS_DDFIELD. IF LS_DDFIELD-ROLLNAME IS INITIAL. 尝试1从DD03T获取表字段专属文本 SELECT SINGLE DDTEXT INTO LS_DDFIELD-SCRTEXT_S FROM DD03T WHERE TABNAME IV_TAB AND FIELDNAME LS_DDFIELD-FIELDNAME AND DDLANGUAGE SY-LANGU. 尝试2从域文本表获取描述 IF LS_DDFIELD-SCRTEXT_S IS INITIAL AND LS_DDFIELD-DOMNAME IS NOT INITIAL. SELECT SINGLE DDTEXT INTO LS_DDFIELD-SCRTEXT_S FROM DD07T WHERE DOMNAME LS_DDFIELD-DOMNAME AND DDLANGUAGE SY-LANGU. ENDIF. 尝试3兜底方案 IF LS_DDFIELD-SCRTEXT_S IS INITIAL. CONCATENATE LS_DDFIELD-FIELDNAME ( LS_DDFIELD-INTTYPE ) INTO LS_DDFIELD-SCRTEXT_S. ENDIF. MODIFY CT_FLD FROM LS_DDFIELD. ENDIF. ENDLOOP. ENDFORM. *----------------------------------------------------------------------* * 子例程2ALV显示 *----------------------------------------------------------------------* FORM SHOW_DATA_ALV. DATA: LO_ALV TYPE REF TO CL_SALV_TABLE, LO_COLS TYPE REF TO CL_SALV_COLUMNS_TABLE, LO_COL TYPE REF TO CL_SALV_COLUMN_TABLE, LV_TEXT TYPE SCRTEXT_S. TRY. CL_SALV_TABLEFACTORY( IMPORTING R_SALV_TABLE LO_ALV CHANGING T_TABLE FT_DATA ). LO_COLS LO_ALV-GET_COLUMNS( ). LO_COLS-SET_OPTIMIZE( ABAP_TRUE ). LOOP AT LT_DDFIELD INTO LS_DDFIELD. TRY. LO_COL ? LO_COLS-GET_COLUMN( LS_DDFIELD-FIELDNAME ). IF LS_DDFIELD-SCRTEXT_S IS NOT INITIAL. LV_TEXT LS_DDFIELD-SCRTEXT_S. ELSE. LV_TEXT LS_DDFIELD-FIELDNAME. ENDIF. LO_COL-SET_SHORT_TEXT( LV_TEXT ). CATCH CX_ROOT. CONTINUE. ENDTRY. ENDLOOP. LO_ALV-DISPLAY( ). CATCH CX_ROOT. ALV异常时降级输出 LOOP AT FT_DATA ASSIGNING FS_LINE. WRITE: / FS_LINE. ENDLOOP. ENDTRY. ENDFORM.