實現效果：同一個屏幕顯示兩個 list，按照垂直方向排列。

源代碼：

report z. TYPE-POOLS: SLIS.DATA: T_SFLIGHT LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.DATA: FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,GT_EVENTS TYPE SLIS_T_EVENT,GD_REPID LIKE SY-REPID,TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.DATA LIST_TOP TYPE SLIS_T_LISTHEADER. " For Logo DATA WA_HEADER TYPE SLIS_LISTHEADER.DATA: ES_LAYOUT TYPE SLIS_LAYOUT_ALV,ES_LAYOUT1 TYPE SLIS_LAYOUT_ALV,I_TABNAME TYPE SLIS_TABNAME,I_TABNAME1 TYPE SLIS_TABNAME,L_PRINT TYPE SLIS_PRINT_ALV,I_TEXT TYPE SLIS_TEXT40 ,I_TEXT1 TYPE SLIS_TEXT40.CONSTANTS:C_FNAM_COS_USER_COMMANDTYPE SLIS_FORMNAME VALUE 'ALV_USER_COMMAND',C_FNAM_COS_PF_STATUSTYPE SLIS_FORMNAME VALUE 'ALV_SET_PF_STATUS'.*Initialize program name GD_REPID = SY-REPID.SELECT CARRIDCONNIDFLDATEPLANETYPEPRICECURRENCYSEATSOCCSEATSOCC_FFROM SFLIGHTINTO CORRESPONDING FIELDS OF TABLE T_SFLIGHTWHERE SEATSMAX_B < 20.*Initialize values into ALV FCAT-COL_POS = 1. FCAT-FIELDNAME = 'CARRID'. FCAT-TABNAME = 'T_SFLIGHT'. FCAT-SELTEXT_L = 'FLIGHT NAME'. FCAT-OUTPUTLEN = 11. APPEND FCAT. CLEAR FCAT.FCAT-COL_POS = 2. FCAT-FIELDNAME = 'CONNID'. FCAT-TABNAME = 'T_SFLIGHT'. FCAT-SELTEXT_L = 'FLIGHT NUMBER'. FCAT-OUTPUTLEN = 14. APPEND FCAT. CLEAR FCAT.FCAT-COL_POS = 3. FCAT-FIELDNAME = 'FLDATE'. FCAT-TABNAME = 'T_SFLIGHT'. FCAT-SELTEXT_L = 'FLIGHT DATE'. FCAT-OUTPUTLEN = 14. APPEND FCAT. CLEAR FCAT.FCAT-COL_POS = 4. FCAT-FIELDNAME = 'PLANETYPE'. FCAT-TABNAME = 'T_SFLIGHT'. FCAT-SELTEXT_L = 'PLANE TYPE'. FCAT-OUTPUTLEN = 13. APPEND FCAT. CLEAR FCAT.FCAT-COL_POS = 5. FCAT-FIELDNAME = 'PRICE'. FCAT-TABNAME = 'T_SFLIGHT'. FCAT-SELTEXT_L = 'PRICE'. FCAT-OUTPUTLEN = 10. APPEND FCAT. CLEAR FCAT.FCAT-COL_POS = 6. FCAT-FIELDNAME = 'CURRENCY'. FCAT-TABNAME = 'T_SFLIGHT'. FCAT-SELTEXT_S = 'CURRENCY'. FCAT-OUTPUTLEN = 17. APPEND FCAT. CLEAR FCAT.*Merging two Alv's in a list*-----Ist-Step------>CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'EXPORTINGI_CALLBACK_PROGRAM = GD_REPID "ALV_COS_REPIDI_CALLBACK_PF_STATUS_SET = C_FNAM_COS_PF_STATUSI_CALLBACK_USER_COMMAND = C_FNAM_COS_USER_COMMAND.*-----IInd-Step------>*A_____ CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'EXPORTINGIS_LAYOUT = ES_LAYOUTIT_FIELDCAT = FCAT[]I_TABNAME = I_TABNAMEIT_EVENTS = GT_EVENTS[]I_TEXT = 'Ist ALV'TABLEST_OUTTAB = T_SFLIGHTEXCEPTIONSPROGRAM_ERROR = 1MAXIMUM_OF_APPENDS_REACHED = 2OTHERS = 3. IF SY-SUBRC <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.*B_______ CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'EXPORTINGIS_LAYOUT = ES_LAYOUT1IT_FIELDCAT = FCAT[]I_TABNAME = 'Sanket'IT_EVENTS = GT_EVENTS[]I_TEXT = 'IInd ALV'TABLEST_OUTTAB = T_SFLIGHTEXCEPTIONSPROGRAM_ERROR = 1MAXIMUM_OF_APPENDS_REACHED = 2OTHERS = 3. IF SY-SUBRC <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.*-----IIIrd-Step------>CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'EXPORTINGIS_PRINT = L_PRINTEXCEPTIONSPROGRAM_ERROR = 1OTHERS = 2. IF SY-SUBRC <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.

總結

以上是生活随笔為你收集整理的如何在 SAPGUI 的同一个屏幕显示两个 ALV list的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。