table control 传值的结构 + 删除被选择的行

XXX TOP------------------------------------------------------------------

TYPES:

  BEGIN OF TYP_9100,

      XXX

  END OF TYP_9100,

  TD_TYP TYPE STANDARD TABLE OF TYP_9100.

DATA:

  REC_9100 TYPE TYP_9100."传值用的构造

  TD_DEL     TYPE TD_TYP."数据表

  CONTROLS TCL1_9100 TYPE TABLEVIEW USING SCREEN 9100.

PBO-------------------------------------------------------------------------

  LOOP WITH CONTROL TCL1_9100.

    MODULE MDL_CTRL_TCL.

  ENDLOOP.

MODULE MDL_CTRL_TCL.------------------------------------------

  DESCRIBE TABLE TD_DEL LINES TCL1_9100-LINES."数据表总条数（上限）

  IF TCL1_9100-CURRENT_LINE <= TCL1_9100-LINES."当前行不超过总条数（上限）

     READ TABLE TD_DEL INTO REC_9100 INDEX TCL1_9100-CURRENT_LINE."读取当前条进传值构造完成传值

  ENDIF.

ENDMODULE.  

 

PAI---------------------------------------------------------------------------

  LOOP WITH CONTROL TCL1_9100.

    MODULE MDL_DEL_TCL.

  ENDLOOP.

  MODULE MDL_DEL_DAT.

MODULE MDL_DEL_TCL.--------------------------------------------

 

  MOVE-CORRESPONDING TCL1_9100 TO REC_9100."读画面上（操作后）当前条进传值构造

  MODIFY TD_DEL FROM REC_9100 INDEX TCL1_9100-CURRENT_LINE TRANSPORTING SEL.将当前行的SEL项目更新至数据表

*  APPEND REC_9100 TO TD_DEL_D."传值构造的值也可以保存至单独的删除表

ENDMODULE.  

MODULE MDL_DEL_DAT.---------------------------------------------

  IF OK_CODE_BK = 'DENL'.

    DELETE TD_DEL WHERE SEL = 'X'."删除带有操作标记的数据 再次运行PBO的时候就会重新刷新TC1_9100了

  ENDIF.

ENDMODULE.