ABAP中如何动态实现跨表行与列的匹配取值？

当然可以实现，无需在SE11手动创建表映射，通过ABAP的动态字段访问就能完成需求。以下是具体实现方案：

前提假设（示例内表结构） #

先定义两个内表的基础结构，你可以根据实际情况调整：

* 第一个内表：包含带数字后缀的字段
TYPES: BEGIN OF ty_tab1,
         hwbast TYPE p DECIMALS 2,
         hwste  TYPE p DECIMALS 2,
         fncurr01 TYPE c LENGTH 5,
         fncurr02 TYPE c LENGTH 5,
         fncurr03 TYPE c LENGTH 5,
         fncurr04 TYPE c LENGTH 5,
       END OF ty_tab1.
DATA: gt_tab1 TYPE STANDARD TABLE OF ty_tab1,
      gs_tab1 TYPE ty_tab1.

* 第二个内表：包含列编号等配置字段
TYPES: BEGIN OF ty_tab2,
         layout TYPE c LENGTH 10,
         type   TYPE c LENGTH 4,
         column_number TYPE i,
         text_column TYPE c LENGTH 30, " 用于存储从第一个表取到的值
       END OF ty_tab2.
DATA: gt_tab2 TYPE STANDARD TABLE OF ty_tab2,
      gs_tab2 TYPE ty_tab2.

核心实现：动态字段匹配与取值 #

通过动态拼接字段名，结合ASSIGN COMPONENT语句访问第一个内表的对应字段，实现行列匹配：

FIELD-SYMBOLS: <fs_value> TYPE any.

LOOP AT gt_tab2 INTO gs_tab2.
  " 动态拼接第一个内表的字段名（例如column_number=1 → 'FNCURR01'）
  DATA(lv_fieldname) = |FNCURR{ gs_tab2-column_number WIDTH = 2 ALIGN = RIGHT PAD = '0' }|.

  LOOP AT gt_tab1 INTO gs_tab1.
    " 动态获取对应字段的值
    ASSIGN COMPONENT lv_fieldname OF STRUCTURE gs_tab1 TO <fs_value>.
    IF sy-subrc = 0.
      " 将取值存入第二个内表的指定字段
      gs_tab2-text_column = <fs_value>.
      MODIFY gt_tab2 FROM gs_tab2 INDEX sy-tabix.
    ELSE.
      " 字段不存在时的异常处理
      gs_tab2-text_column = '字段未找到'.
      MODIFY gt_tab2 FROM gs_tab2 INDEX sy-tabix.
    ENDIF.
  ENDLOOP.
ENDLOOP.

进阶方案：用RTTI提前校验字段合法性 #

如果需要更严谨的校验（避免因字段名拼写错误导致运行时错误），可以使用ABAP RTTI（运行时类型信息）提前检查字段是否存在：

FIELD-SYMBOLS: <fs_value> TYPE any.

* 获取第一个内表结构的RTTI描述对象
DATA(lo_struct_descr) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_data( gs_tab1 ) ).

LOOP AT gt_tab2 INTO gs_tab2.
  DATA(lv_fieldname) = |FNCURR{ gs_tab2-column_number WIDTH = 2 ALIGN = RIGHT PAD = '0' }|.

  " 提前校验字段是否存在
  IF lo_struct_descr->get_component( lv_fieldname ) IS NOT INITIAL.
    LOOP AT gt_tab1 INTO gs_tab1.
      ASSIGN COMPONENT lv_fieldname OF STRUCTURE gs_tab1 TO <fs_value>.
      IF sy-subrc = 0.
        gs_tab2-text_column = <fs_value>.
        MODIFY gt_tab2 FROM gs_tab2 INDEX sy-tabix.
      ENDIF.
    ENDLOOP.
  ELSE.
    gs_tab2-text_column = '字段不存在'.
    MODIFY gt_tab2 FROM gs_tab2 INDEX sy-tabix.
  ENDIF.
ENDLOOP.

关键要点 #

• 动态字段名拼接时注意格式：确保数字补零（如1→01），和第一个内表的字段名完全匹配
• ASSIGN COMPONENT是ABAP动态访问结构字段的高效方式，性能优于其他动态方法
• 无需创建任何SE11映射表，所有匹配逻辑通过代码动态完成
• 可根据实际需求扩展：比如将取值存入新内表，或进行更复杂的字段转换

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