廢話不多說(shuō)，直接上傻瓜代碼。歸根結(jié)底，就是要將顯示的字段一行一行的放入fieldcat的表里。

"定義ALV數(shù)據(jù)變量 DATA:IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,WA_LAYOUT TYPE SLIS_LAYOUT_ALV. "定義ALV結(jié)構(gòu)字段，使用宏的方式 DATA: POS TYPE I. DEFINE ADD1.CLEAR wa_fieldcat.ADD 1 TO POS.WA_FIELDCAT-FIELDNAME = &1. "字段名稱WA_FIELDCAT-TABNAME = &2. "字段所在的表WA_FIELDCAT-SELTEXT_M = &3."字段描述APPEND WA_FIELDCAT TO IT_FIELDCAT. END-OF-DEFINITION. "透明表取數(shù) SELECT AUFNR, AUART, ERNAM INTO TABLE @DATA(AUFK_TAB) FROM AUFK UP TO 10 ROWS. CLEAR:WA_FIELDCAT,IT_FIELDCAT,WA_LAYOUT. "增加顯示字段 ADD1 'AUFNR' 'AUFK_TAB' '銷售訂單'. ADD1 'AUART' 'AUFK_TAB' '銷售類型'. ADD1 'ERNAM' 'AUFK_TAB' '創(chuàng)建者'. "ALV格式控制 WA_LAYOUT-ZEBRA = 'X'. "呈現(xiàn)顏色交替 WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "優(yōu)化列寬選項(xiàng)是否設(shè)置 "調(diào)用ALV顯示函數(shù) CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGI_CALLBACK_PROGRAM = SY-REPIDIS_LAYOUT = WA_LAYOUTIT_FIELDCAT = IT_FIELDCATTABLEST_OUTTAB = AUFK_TABEXCEPTIONSPROGRAM_ERROR = 1OTHERS = 2. IF SY-SUBRC <> 0. ENDIF.

顯示效果：

?

?

其中宏的一部分也可變成慢慢的將工作區(qū)加入進(jìn)fieldcat表，見下一篇例子。

轉(zhuǎn)載于:https://www.cnblogs.com/BruceKing/p/11024526.html

總結(jié)

以上是生活随笔為你收集整理的简单的ALV显示例子的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。