背景:实现了一个对话框,然后增加一条记录
REPORT ZTESTJGL.
TABLES: ZTPPJING.
DATA:BEGIN OF GT_ALV OCCURS 0,
AUFNR LIKE ZTPPJING-AUFNR ,
END OF GT_ALV.
DATA:LT_BIAO TYPE ZTPPJING.
SELECTION-SCREEN BEGIN OF BLOCK BLK01 WITH FRAME TITLE TXT-001.
SELECT-OPTIONS:S_AUFNR FOR ZTPPJING-AUFNR.
SELECTION-SCREEN END OF BLOCK BLK01.
INITIALIZATION.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM SHOW_DATA.
END-OF-SELECTION.
FORM GET_DATA .
IF GT_ALV[] IS INITIAL.
GT_ALV-AUFNR = '0000000001'.
APPEND GT_ALV.
CLEAR:GT_ALV.
ENDIF.
LOOP AT GT_ALV.
MOVE-CORRESPONDING GT_ALV TO LT_BIAO.
MODIFY ZTPPJING FROM LT_BIAO.
IF SY-SUBRC = 0.
WRITE:LT_BIAO-AUFNR.
ENDIF.
ENDLOOP.
ENDFORM. " GET_DATA
FORM SHOW_DATA .
ENDFORM. " SHOW_DATA
总结:主要是建一个表,然后在表中增加一行数据。
本文介绍了一个ABAP程序中如何创建并操作自定义表的过程。通过示例代码,演示了如何在表中增加一条记录,包括初始化数据、追加记录、修改表中数据等关键步骤。

1042

被折叠的 条评论
为什么被折叠?



