ABAP技术求助：如何从深度嵌套结构（含内表）中提取字段值？

你的核心问题是现有代码未处理内表类型（kind = 'T'）的字段，同时对内表赋值的逻辑有误——lt_result_table_nested是内表对象，不能直接用ASSIGN COMPONENT ... OF STRUCTURE操作，必须先遍历内表的行数据，再处理行内的嵌套结构。另外，嵌套内表可能包含多行数据，扁平化时需要把每行的字段都展开（比如内表有3行，最终会生成3条扁平数据）。

现有代码的关键问题 #

1. 缺少内表类型（kind = 'T'）的处理分支，完全没覆盖主表中对应内表的列
2. 赋值逻辑错误：尝试直接给内表对象分配组件，而不是内表的行结构
3. 递归处理不完整：只展开了结构类型，没深入内表的行结构进行递归扁平化

修正后的实现思路 #

1. 递归遍历所有类型：对基本类型（E）、结构类型（S）、内表类型（T）分别处理
2. 内表特殊处理：循环内表的每一行，对每行的结构进行递归扁平化，把每行的字段值提取出来
3. 字段名唯一化：用父结构/内表名称作为前缀拼接字段名，避免重复
4. 值提取与存储：在扁平化字段的同时，把对应的值存入新的扁平结构或内表中

完整代码示例 #

DATA: go_flat_table TYPE REF TO data,
      gt_flat_data   TYPE STANDARD TABLE.

" 初始化：传入嵌套内表，生成扁平内表并填充数据
PERFORM flatten_nested_structure USING lt_result_table_nested
                                  CHANGING gt_flat_data.

FORM flatten_nested_structure USING iv_nested_data TYPE REF TO data
                              CHANGING cv_flat_data TYPE STANDARD TABLE.
  DATA: lo_table_descr    TYPE REF TO cl_abap_tabledescr,
        lo_line_descr     TYPE REF TO cl_abap_structdescr,
        lo_flat_struct    TYPE REF TO cl_abap_structdescr,
        lt_flat_comps     TYPE cl_abap_structdescr=>component_table.

  " 获取内表的行结构描述
  lo_table_descr ?= cl_abap_typedescr=>describe_by_data_ref( iv_nested_data ).
  lo_line_descr ?= lo_table_descr->get_table_line_type( ).

  " 递归收集所有扁平化字段（含内表行的字段）
  PERFORM collect_flat_components USING lo_line_descr
                                        '' " 初始前缀为空
                                  CHANGING lt_flat_comps.

  " 根据扁平组件生成结构类型与内表
  lo_flat_struct = cl_abap_structdescr=>create( lt_flat_comps ).
  CALL METHOD cl_abap_tabledescr=>create
    EXPORTING
      p_line_type = lo_flat_struct
    RECEIVING
      p_result    = DATA(lo_flat_table_descr).
  CREATE DATA go_flat_table TYPE HANDLE lo_flat_table_descr.
  ASSIGN go_flat_table->* TO FIELD-SYMBOL(<fs_flat_table>).
  cv_flat_data = <fs_flat_table>.

  " 遍历原嵌套内表的每一行，提取值填充到扁平内表
  ASSIGN iv_nested_data->* TO FIELD-SYMBOL(<fs_nested_table>).
  LOOP AT <fs_nested_table> ASSIGNING FIELD-SYMBOL(<fs_nested_line>).
    DATA(ls_flat_line) = VALUE #( ).
    PERFORM extract_field_values USING <fs_nested_line>
                                       ''
                                  CHANGING ls_flat_line.
    APPEND ls_flat_line TO cv_flat_data.
  ENDLOOP.
ENDFORM.

" 递归收集所有扁平化字段（处理结构、内表、基本类型）
FORM collect_flat_components USING io_descr TYPE REF TO cl_abap_structdescr
                                    iv_prefix TYPE string
                              CHANGING ct_flat_comps TYPE cl_abap_structdescr=>component_table.
  DATA: lt_components TYPE cl_abap_structdescr=>component_table.
  lt_components = io_descr->get_components( ).

  LOOP AT lt_components ASSIGNING FIELD-SYMBOL(<fs_comp>).
    DATA(lv_new_prefix) = COND string( WHEN iv_prefix IS NOT INITIAL THEN iv_prefix && '_' && <fs_comp>-name ELSE <fs_comp>-name ).

    CASE <fs_comp>-type->kind.
      WHEN 'E'. " 基本类型：直接添加到扁平组件
        APPEND VALUE #( name = lv_new_prefix
                        type = <fs_comp>-type ) TO ct_flat_comps.
      WHEN 'S'. " 结构类型：递归处理
        DATA(lo_struct_descr) TYPE REF TO cl_abap_structdescr.
        lo_struct_descr ?= <fs_comp>-type.
        PERFORM collect_flat_components USING lo_struct_descr
                                              lv_new_prefix
                                        CHANGING ct_flat_comps.
      WHEN 'T'. " 内表类型：取行结构递归处理（注：若内表多行，最终会生成多条扁平数据）
        DATA(lo_table_descr) TYPE REF TO cl_abap_tabledescr.
        lo_table_descr ?= <fs_comp>-type.
        DATA(lo_table_line_descr) TYPE REF TO cl_abap_structdescr.
        lo_table_line_descr ?= lo_table_descr->get_table_line_type( ).
        PERFORM collect_flat_components USING lo_table_line_descr
                                              lv_new_prefix
                                        CHANGING ct_flat_comps.
    ENDCASE.
  ENDLOOP.
ENDFORM.

" 递归提取所有字段值到扁平结构
FORM extract_field_values USING is_nested_data TYPE any
                                iv_prefix TYPE string
                          CHANGING cs_flat_data TYPE any.
  DATA: lo_descr TYPE REF TO cl_abap_structdescr.
  lo_descr ?= cl_abap_typedescr=>describe_by_data( is_nested_data ).
  DATA(lt_components) = lo_descr->get_components( ).

  LOOP AT lt_components ASSIGNING FIELD-SYMBOL(<fs_comp>).
    DATA(lv_new_prefix) = COND string( WHEN iv_prefix IS NOT INITIAL THEN iv_prefix && '_' && <fs_comp>-name ELSE <fs_comp>-name ).
    ASSIGN COMPONENT <fs_comp>-name OF STRUCTURE is_nested_data TO FIELD-SYMBOL(<fs_value>).

    CASE <fs_comp>-type->kind.
      WHEN 'E'. " 基本类型：直接赋值到扁平结构
        ASSIGN COMPONENT lv_new_prefix OF STRUCTURE cs_flat_data TO FIELD-SYMBOL(<fs_flat_field>).
        IF sy-subrc = 0.
          <fs_flat_field> = <fs_value>.
        ENDIF.
      WHEN 'S'. " 结构类型：递归提取
        PERFORM extract_field_values USING <fs_value>
                                          lv_new_prefix
                                    CHANGING cs_flat_data.
      WHEN 'T'. " 内表类型：遍历每一行递归提取（注：这里假设内表多行时，每行生成一条扁平数据；若要合并到一行，需自行调整逻辑）
        LOOP AT <fs_value> ASSIGNING FIELD-SYMBOL(<fs_table_line>).
          DATA(ls_temp_flat) = cs_flat_data.
          PERFORM extract_field_values USING <fs_table_line>
                                            lv_new_prefix
                                      CHANGING ls_temp_flat.
          APPEND ls_temp_flat TO gt_flat_data. " 直接追加到全局扁平内表，原行数据保留基础字段
        ENDLOOP.
    ENDCASE.
  ENDLOOP.
ENDFORM.

关键说明 #

• 内表多行处理：代码中默认内表的每一行都会生成一条独立的扁平数据，包含主表的基础字段+内表行的所有字段。如果需要把内表多行合并到同一条扁平数据（比如用逗号分隔值），可以修改'T'分支的赋值逻辑
• 字段名前缀：用父结构名_字段名的方式保证字段唯一，避免嵌套结构中重名字段冲突
• 递归深度：代码支持任意深度的嵌套（包括你提到的8层），无需手动调整层级

内容的提问来源于stack exchange，提问作者Abp