ABAP动态获取字段列中值

 DATA:LT_COST TYPE TABLE OF COST.

"价格(固定)
  WITH +DATA AS ( SELECT DISTINCT OBJNR FROM @LT_ZPPT413 AS LT_DATA )
  SELECT
    *
    FROM COST
    INNER JOIN +DATA ON +DATA~OBJNR = COST~OBJNR
                     AND COST~WRTTP = '01'
   INTO CORRESPONDING FIELDS OF TABLE @LT_COST.
  SORT LT_COST BY OBJNR.

 

DATA:LV_MONTH(2) TYPE C VALUE '01'.
  DATA:LV_TKFXXX TYPE STRING.
  FIELD-SYMBOLS: <FS> TYPE ANY.

 

    LV_MONTH = SY-DATUM+4(2).
    CONCATENATE 'TKF0' LV_MONTH INTO LV_TKFXXX.
    ASSIGN LV_TKFXXX TO <FS>.

 

 

"价格
    READ TABLE LT_COST INTO DATA(LS_COST) WITH KEY OBJNR = LS_ZPPT413-OBJNR BINARY SEARCH.
    IF SY-SUBRC = 0.
      ASSIGN COMPONENT LV_TKFXXX OF STRUCTURE LS_COST TO <FS>.
      GS_ALV-TKFXXX = <FS>.
    ENDIF.