赛跑网-ALV展示报表的一个DEMO

SAPOK_ABAP · 发表于 2012-6-1 14:17:43

下面代码可以作为一个demo收藏。
TABLES:marav. "MARA&MAKT 视图
*---------------------------------------------------------------------*
DATA:BEGIN OF gt_tab OCCURS 100,
   matnr LIKE marav-matnr,
   maktx LIKE marav-maktx,
   matkl LIKE marav-matkl,
   ntgew LIKE marav-ntgew,
   gewei LIKE marav-gewei,
END OF gt_tab.

DATA i_repid LIKE sy-repid.

***ALV设定
TYPE-POOLS: slis.
DATA gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA is_layout  TYPE  slis_layout_alv.
***选择屏幕制作
SELECT-OPTIONS:
s_matnr FOR marav-matnr MATCHCODE OBJECT mat1.

START-OF-SELECTION.

***取数据
  SELECT * FROM marav
  INTO CORRESPONDING FIELDS OF TABLE gt_tab
  WHERE
  matnr IN s_matnr.

END-OF-SELECTION.

  i_repid = sy-repid.
*使用函数得到gt_fieldcat内表
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
   i_program_name       = i_repid
   i_internal_tabname    = 'GT_TAB'  "capital letters!
   i_inclname          = i_repid

CHANGING
   ct_fieldcat          = gt_fieldcat
EXCEPTIONS
   inconsistent_interface = 1
   program_error       = 2
   OTHERS                = 3.
  IF sy-subrc <> 0.
  ENDIF.

游客，如果您要查看本帖隐藏内容请回复

* 展示数据
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   i_callback_program    = i_repid
   it_fieldcat          = gt_fieldcat
   i_save                = 'A'
   i_callback_user_command = 'FRM_UCOMM'  "实现双击事件
   is_layout             = is_layout
TABLES
   t_outtab             = gt_tab
EXCEPTIONS
   program_error          = 1
   OTHERS                = 2.
  IF sy-subrc <> 0.

  ENDIF.

***实现双击事件
*----------------------------------------------------------------------*
*    -->F_UCOMM text
*    -->F_SELFIELD text
*----------------------------------------------------------------------*

游客，如果您要查看本帖隐藏内容请回复

无言草 · 发表于 2012-6-27 13:59:07

这个需要学习。。。

xingfan234 · 发表于 2012-6-27 14:48:24

好东西啊，研究研究才行

wyzlt216123 · 发表于 2012-7-14 13:53:05

来看看 ~~~~

布拉德与朔太郎 · 发表于 2012-9-6 19:14:57

学习了！！！！

石子儿 · 发表于 2012-10-14 17:49:40

很有用！课堂内容来做练习最好了！谢谢老师！

dorian110 · 发表于 2013-1-28 14:49:52

重要

412768150 · 发表于 2013-4-28 01:49:18

cx楼主辛苦啦，这个问题对我很重要

pingminwang · 发表于 2013-6-21 00:03:27

多了解

毛毛 · 发表于 2013-6-21 00:54:52

学习

		自动登录	找回密码
密码			注册

赛跑网-ALV展示报表的一个DEMO

最近访客

thanks