ABAP中如何处理动态内表字段名并动态获取字段值？

在开发通用报表时，动态读取内表指定字段是常见需求，以下是两种实用的实现方式：

方法一：使用FIELD-SYMBOL动态分配字段 #

这是轻量高效的常用方案，通过ASSIGN COMPONENT语句将目标字段绑定到字段符号，直接访问字段值。

DATA: gt_data TYPE STANDARD TABLE OF mara, " 替换为实际业务内表结构
      gs_data TYPE mara,
      lv_fieldname TYPE fieldname VALUE 'MATNR', " 用户选择的字段名字符串
      <fs_field> TYPE any.

" 假设gt_data已完成数据填充
LOOP AT gt_data INTO gs_data.
  " 将指定字段分配到字段符号
  ASSIGN COMPONENT lv_fieldname OF STRUCTURE gs_data TO <fs_field>.
  IF sy-subrc = 0.
    " 成功获取值，可直接使用<fs_field>进行输出或后续处理
    WRITE: / <fs_field>.
  ELSE.
    " 字段名不存在时的异常处理逻辑
    WRITE: / '错误：不存在字段', lv_fieldname.
  ENDIF.
ENDLOOP.

方法二：使用RTTI（运行时类型信息） #

适合复杂场景（如动态结构内表、需要读取字段元数据），通过RTTI类获取字段描述并读取值。

DATA: gt_data TYPE STANDARD TABLE OF mara,
      gs_data TYPE mara,
      lv_fieldname TYPE fieldname VALUE 'MATNR',
      lo_structdescr TYPE REF TO cl_abap_structdescr,
      lv_value TYPE string.

" 获取内表行结构的描述符
lo_structdescr ?= cl_abap_typedescr=>describe_by_data( gs_data ).

TRY.
    " 校验字段是否存在于结构中
    lo_structdescr->get_component( name = lv_fieldname ).
  CATCH cx_sy_struct_comp_not_found.
    WRITE: / '错误：不存在字段', lv_fieldname.
    CONTINUE.
ENDTRY.

" 循环读取内表字段值
LOOP AT gt_data INTO gs_data.
  " 读取字段值并统一转换为字符串类型
  CALL METHOD cl_abap_container_utilities=>read_container_c
    EXPORTING
      im_container = gs_data
      im_name      = lv_fieldname
    IMPORTING
      ex_value     = lv_value.
  WRITE: / lv_value.
ENDLOOP.

注意事项 #

• 字段名字符串需与内表结构中的字段名大小写一致（ABAP字段名默认大写，若用户输入小写需先转换）
• 若内表为动态创建的通用表（如TYPE STANDARD TABLE OF REF TO data），需先获取行数据的引用再执行上述操作
• 处理嵌套结构时，可通过链式ASSIGN语句访问深层字段，例如ASSIGN COMPONENT 'SUB_FIELD' OF STRUCTURE gs_data-sub_struct TO <fs_field>

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