Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7189477
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2009-01-04 23:25:29

效果如下图:
 
程序:
 
REPORT  z_barry_alv_zero.
 
DATA: itab TYPE STANDARD TABLE OF zstru001 .
DATA: ok_code LIKE sy-ucomm ,
      save_ok LIKE sy-ucomm .
DATA: go_grid             TYPE REF TO cl_gui_alv_grid,
      go_custom_container TYPE REF TO cl_gui_custom_container.
DATA: gt_fieldcat TYPE lvc_t_fcat,
      gs_fieldcat TYPE lvc_s_fcat,
      sla         TYPE lvc_s_layo .
START-OF-SELECTION.
  CALL SCREEN 0100 .
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  save_ok = ok_code .
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'BACK'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Form  load_data_into_grid
*&---------------------------------------------------------------------*
FORM load_data_into_grid.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE itab
    FROM ekpo UP TO 4 ROWS.
 
  sla-cwidth_opt = 'X'.
  sla-zebra      = 'X'.
 
  CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
      is_layout                     = sla
    CHANGING
      it_outtab                     = itab[]
      it_fieldcatalog               = gt_fieldcat[]
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
ENDFORM.                    " load_data_into_grid
*&--------------------------------------------------------------------*
*&      Form  fieldcat_init
*&--------------------------------------------------------------------*
FORM fieldcat_init .
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'ZSTRU001'
    CHANGING
      ct_fieldcat      = gt_fieldcat.
ENDFORM.   "fieldcat_init
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MAIN100'.
  IF go_grid IS INITIAL.
    CREATE OBJECT go_grid
      EXPORTING
        i_parent = cl_gui_container=>screen0.
    PERFORM fieldcat_init .
    PERFORM load_data_into_grid.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
 

阅读(8243) | 评论(9) | 转发(1) |
给主人留下些什么吧!~~

chinaunix网友2009-01-09 23:51:29

其实真正体现这种效果的是在参考字段那里,就像类似dialog程序显示一样,同样利用function的ALV一样得出同样结果的。 REPORT ZDEMO2. TYPE-POOLS: SLIS. " DATA:IT_ITAB LIKE TABLE OF zstru001 WITH HEADER LINE. SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_ITAB FROM ekpo UP TO 100 ROWS. DATA: f_detail_repid LIKE sy-repid VALUE SY-repid. DATA: gs_detail_layout TYPE slis_layout_alv. gs_detail_layout-colwidth_optimize = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_p

chinaunix网友2009-01-06 10:24:19

老大 还是用到OO的ALV了,看来OO不学不行了

chinaunix网友2009-01-05 13:59:53

不是

chinaunix网友2009-01-05 11:39:01

sla-zebra = 'X'. 是这一句起的作用吗?