这玩意不知道什么时候用^_^
组件：Row-Repeater
1.新建WDA程序并激活 ZLYWDA02
2.进入VIEW，创建CONTEXT:
表：0..n
选择行：单选
初始化选择行
3.创建循环节点 右键HCONTEXT创建循环节点HCONTEXT_REC
给HCONTEXT添加属性：
TEXT:STRING 显示
CARRID:STRING 第一层
CONNID:STRING 第二层
VIEW的INIT中初始化节点：
METHOD WDDOINIT .
TYPES:
BEGIN OF TYP_FLIGHT,
CARRID TYPE STRING,
CONNID TYPE STRING,
NAME TYPE STRING,
END OF TYP_FLIGHT. DATA:
LS_FLIGHT TYPE TYP_FLIGHT,
LT_FLIGHT TYPE STANDARD TABLE OF TYP_FLIGHT. * set the internal table
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-01'.
LS_FLIGHT-CONNID = 'CA-01-CO-01'.
LS_FLIGHT-NAME = 'CA-01-CO-01:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-01'.
LS_FLIGHT-CONNID = 'CA-01-CO-01'.
LS_FLIGHT-NAME = 'CA-01-CO-01:item2'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-01'.
LS_FLIGHT-CONNID = 'CA-01-CO-01'.
LS_FLIGHT-NAME = 'CA-01-CO-01:item3'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-01'.
LS_FLIGHT-CONNID = 'CA-01-CO-02'.
LS_FLIGHT-NAME = 'CA-01-CO-02:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-01'.
LS_FLIGHT-CONNID = 'CA-01-CO-03'.
LS_FLIGHT-NAME = 'CA-01-CO-03:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-02'.
LS_FLIGHT-CONNID = 'CA-02-CO-01'.
LS_FLIGHT-NAME = 'CA-02-CO-01:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-03'.
LS_FLIGHT-CONNID = 'CA-03-CO-01'.
LS_FLIGHT-NAME = 'CA-03-CO-01:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-03'.
LS_FLIGHT-CONNID = 'CA-03-CO-02'.
LS_FLIGHT-NAME = 'CA-03-CO-02:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
CLEAR:LS_FLIGHT.
LS_FLIGHT-CARRID = 'CA-04'.
LS_FLIGHT-CONNID = 'CA-04-CO-01'.
LS_FLIGHT-NAME = 'CA-04-CO-01:item1'.
APPEND LS_FLIGHT TO LT_FLIGHT.
SORT LT_FLIGHT BY CARRID CONNID NAME.
* set the context
DATA:
LO_NODE TYPE REF TO IF_WD_CONTEXT_NODE,
LO_ELEM TYPE REF TO IF_WD_CONTEXT_ELEMENT,
LO_NODE_REC TYPE REF TO IF_WD_CONTEXT_NODE,
LO_ELEM2 TYPE REF TO IF_WD_CONTEXT_ELEMENT,
LO_NODE_REC2 TYPE REF TO IF_WD_CONTEXT_NODE,
LS_CONTEXT TYPE WD_THIS->ELEMENT_HCONTEXT,
LW_CARRID TYPE STRING,
LW_CONNID TYPE STRING.
LOOP AT LT_FLIGHT INTO LS_FLIGHT.
* new Carrid, 1st level.
* IF LW_CARRID <> LS_FLIGHT-CARRID.
IF LW_CARRID <> LS_FLIGHT-CONNID.
LW_CARRID = LS_FLIGHT-CONNID.
CONCATENATE '1st level:'
LS_FLIGHT-CARRID
INTO LS_CONTEXT-TEXT.
LS_CONTEXT-CARRID = LS_FLIGHT-CARRID.
LS_CONTEXT-CONNID = LS_FLIGHT-CONNID.
* node
LO_NODE = WD_CONTEXT->GET_CHILD_NODE( NAME = 'HCONTEXT' ).
* bind structure
LO_ELEM = LO_NODE->BIND_STRUCTURE( NEW_ITEM = LS_CONTEXT
SET_INITIAL_ELEMENTS = ABAP_FALSE ).
* create dependent node for recurion
LO_NODE_REC = LO_ELEM->GET_CHILD_NODE( 'HCONTEXT_REC' ).
ENDIF.
* for the 2rd level
CONCATENATE '2rd level:'
LS_FLIGHT-NAME
INTO LS_CONTEXT-TEXT.
LS_CONTEXT-CARRID = LS_FLIGHT-CARRID.
LS_CONTEXT-CONNID = LS_FLIGHT-CONNID.
* bind
LO_NODE_REC->BIND_STRUCTURE( NEW_ITEM = LS_CONTEXT
SET_INITIAL_ELEMENTS = ABAP_FALSE ).
ENDLOOP.
ENDMETHOD.
效果：