Copy selected values from a table control into another table control

Question

hi there,
as seen in the subject i need to copy selected values from a table control into another table control in the same screen. as i dont know much about table controls i made 2 table controls with the wizard and started to change the code... right now im totally messed up. nothing works anymore and i don't know where to start over.
i looked up the forums and google, but there is nothing to help me with this problem (or i suck in searching the internet for solutions)
i have 2 buttons. one to push the selected data from the top table control into the bottom tc and the other button is to push selected data from the bottom tc into the top tc. does somebody has a sample code to do this?

Answer 1

you're funny
i still don't get it... can't believe, there is no tutorial or sample code around how to copy multiple selected rows from a tc.
here's my code, maybe you can tell me exactly were i have to change it:
tc1 = upper table control
tc2 = lower table control
SCREEN 0100:
PROCESS BEFORE OUTPUT.
  MODULE status_0100.
  MODULE get_nfo. --> gets data from the dictionary table
  MODULE tc1_change_tc_attr.
  LOOP AT   it_roles_tc1
       INTO wa_roles_tc1
       WITH CONTROL tc1
       CURSOR tc1-current_line.
  ENDLOOP.
  MODULE tc2_change_tc_attr.
  LOOP AT   it_roles_tc2
       INTO wa_roles_tc2l
       WITH CONTROL tc2
       CURSOR tc2-current_line.
  ENDLOOP.
PROCESS AFTER INPUT.
  LOOP AT it_roles_tc1.
    CHAIN.
      FIELD wa_roles_tc1-agr_name.
      FIELD wa_roles_tc1-text.
    ENDCHAIN.
    FIELD wa_roles_tc1-mark
      MODULE tc1_mark ON REQUEST.
  ENDLOOP.
  LOOP AT it_roles_tc2.
    CHAIN.
      FIELD wa_roles_tc2-agr_name.
      FIELD wa_roles_tc2-text.
    ENDCHAIN.
    FIELD wa_roles_tc2-mark
      MODULE tc2_mark ON REQUEST.
  ENDLOOP.
  MODULE ok_code.
  MODULE user_command_0100.
INCLUDE PAI:
MODULE tc1_mark INPUT.
  IF tc1-line_sel_mode = 2
  AND wa_roles_tc1-mark = 'X'.
    LOOP AT it_roles_tc1 INTO g_tc1_wa2
      WHERE mark = 'X'.    -
> big problem here is, that no entry has an 'X' there
      g_tc1_wa2-mark = ''.
      MODIFY it_roles_tc1
        FROM g_tc1_wa2
        TRANSPORTING mark.
    ENDLOOP.
  ENDIF.
  MODIFY it_roles_tc1
    FROM wa_roles_tc1
    INDEX tc1-current_line
    TRANSPORTING mark.
ENDMODULE.                    "TC1_MARK INPUT
MODULE tc2_mark INPUT.
  IF tc2-line_sel_mode = 2
  AND wa_roles_tc2-mark = 'X'.
    LOOP AT it_roles_tc2 INTO g_tc2_wa2
      WHERE mark = 'X'.             -
> same here, it doesn't gets any data
      g_tc2_wa2-mark = ''.
      MODIFY it_roles_tc2
        FROM g_tc2_wa2
        TRANSPORTING mark.
    ENDLOOP.
  ENDIF.
  MODIFY it_roles_tc2
    FROM wa_roles_tc2
    INDEX tc2-current_line
    TRANSPORTING mark.
ENDMODULE. 
thx for anybody who can help with this!