Deletion with Tablecontrol

Question

Hi all,
   How to set the value of w/sel column field as marked and delete the corresponding row in the table.
Regards,
Surya

Answer 1

hi..
here is the sample code.
flow logic####
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP AT ITAB WITH CONTROL TC.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT ITAB.
MODULE MODIFY_TABLE.
ENDLOOP.
MODULE USER_COMMAND_0100.
code#####
REPORT ZINC1000 .
tables: DEMO_CONN,SPFLI.
controls tc type tableview using screen 100.
data itab like table of DEMO_CONN with header line.
data a type SPFLI-connid.
data lines type i.
data fill type i.
data ind type i.
data net_amount type i.
tc-lines = fill.
data flag.
*DATA NUM TYPE ZRHB_BILL_CAR1-CBILL_NO.
*NUM = 100.
call screen 100.
*&      Module  STATUS_0100  OUTPUT
      text
module STATUS_0100 output.
SET PF-STATUS 'BILL'.
SET TITLEBAR 'xxx'.
IF FLAG = 'X'.
PERFORM DISPLAY.
ENDIF.
endmodule.                 " STATUS_0100  OUTPUT
*&      Module  MODIFY_TABLE  INPUT
      text
module MODIFY_TABLE input.
lines = sy-loopc.
MODIFY ITAB FROM ITAB index TC-current_line.
endmodule.                 " MODIFY_TABLE  INPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
module USER_COMMAND_0100 input.
CASE SY-UCOMM.
WHEN 'CL'.
SELECT * FROM SPFLI INTO
ITAB
WHERE CONNID = A.
ENDSELECT.
APPEND ITAB.
FLAG = 'X'.
  WHEN 'BACK'.
   LEAVE PROGRAM.
   WHEN 'SAVE'.
   PERFORM PRINT.
   WHEN 'DEL'.
   PERFORM DELETE.
     ENDCASE.
endmodule.                 " USER_COMMAND_0100  INPUT
FORM PRINT.
LEAVE TO LIST-PROCESSING.
SUPPRESS DIALOG.
LOOP AT ITAB.
WRITE:/ ITAB-CONNID,ITAB-CARRID.
ENDLOOP.
ENDFORM.
  FORM DISPLAY.
DESCRIBE TABLE ITAB LINES FILL.
  ITAB-CONNID  = ITAB-CONNID .
  ITAB-CARRID  = ITAB-CARRID.
  ENDFORM.
FORM DELETE.
LOOP AT ITAB WHERE MARK = 'X'.
DELETE ITAB.
ENDLOOP.
ENDFORM.
in screen painter use itab-mark in w/sel-col and mark must be in ur table..