ABAP_自定义屏幕09—表格控件(手动/少用)

ABAP_自定义屏幕09—表格控件(手动/少用)

随意查询一个表的内容，此处用的表是：ZLION_TEST（已建27条数据）

1、手工创建-不推荐

1.1 初始屏幕

REPORT  zcsdn_lion_custom09.

DATA: ok_code LIKE sy-ucomm,
             my_code LIKE sy-ucomm.


START-OF-SELECTION.

END-OF-SELECTION.
  CALL SCREEN '2000'.

*-------  工具栏、标题加载到屏幕中 --------*
MODULE status_2000 OUTPUT.
  SET PF-STATUS 'TOOLS'.
  SET TITLEBAR 'TITLE'.

ENDMODULE.                 " STATUS_2000  OUTPUT

*------ 捕获功能码   ----*
MODULE user_command_2000 INPUT.
  my_code = ok_code.
  CLEAR ok_code.

  CASE my_code.
    WHEN '&EXIT' OR '&BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE. 

1.2 声明变量

变量是查询对象，单表参照表，多表抽取每个表字段组合为结构

DATA g_it_tab LIKE STANDARD TABLE OF zlion_test.
DATA g_wa LIKE zlion_test.

START-OF-SELECTION.
  PERFORM sub_getdata."查询语句
  
*------ 查询语句----------*
FORM sub_getdata .
  SELECT * INTO CORRESPONDING FIELDS OF TABLE g_it_tab FROM zlion_test.
ENDFORM.     

1.3 屏幕中绘制表格控件

主程序需要定义table控件相同的变量，并指定table控件在哪个屏幕展示

CONTROLS: tab_main TYPE TABLEVIEW USING SCREEN '2000'.

栏位前后顺序有误的，选中不放拖到对应的位置即可

添加首列标题栏，标题栏id可跟上面的文本栏id一样

标题栏不够宽度的，调整文本栏“可视距离”，是文本框的可视距离，不是标题栏的