report ztest_alv.
types: begin of typ_alv,
zsel(1),
field_1(10) type c,
field_2 type i,
field_3 type ekpo-menge,
end of typ_alv.
data: itab type table of typ_alv,
wa type typ_alv.
type-pools: slis.
data: it_field type slis_t_fieldcat_alv,
wa_field like line of it_field,
gs_layout type slis_layout_alv.
define m_alv_fieldcat.
wa_field-fieldname = &1.
wa_field-reptext_ddic = &2.
wa_field-decimals_out = 4. "设置小数位数
append wa_field to it_field.
clear wa_field.
end-of-definition.
wa-field_1 = 'aaa'.
wa-field_2 = 1.
wa-field_3 = '100.001'.
append wa to itab.
wa-field_1 = 'bbb'.
wa-field_2 = 2.
wa-field_3 = '200.002'.
append wa to itab.
wa-field_1 = 'ccc'.
wa-field_2 = 3.
wa-field_3 = '300.003'.
append wa to itab.
m_alv_fieldcat 'FIELD_1' '字段1' .
m_alv_fieldcat 'FIELD_2' '字段2' .
m_alv_fieldcat 'FIELD_3' '字段3' .
*---设置输出格式
gs_layout-zebra = 'X'.
gs_layout-colwidth_optimize = 'X'.
gs_layout-box_fieldname = 'ZSEL'.
*---输出
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = sy-repid
it_fieldcat = it_field
is_layout = gs_layout
i_default = 'X'
i_save = 'A'
tables
t_outtab = itab.
评论