ABAP的fieldcat的alv展示字段的用法
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'VBAK'
CHANGING
ct_fieldcat = gt_fieldcat
EXEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0 .
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
DATA:lt_lvc_fname TYPE RANGE OF lvc_fname.
lt_lvc_fname = VALUE #( sign = 'I' option = 'EQ' ( low = 'ZYL1' )
( low = 'ZYL2' )
( low = 'ZYL3' )
( low = 'ZYL4' )
).
DELETE gt_fieldcat WHERE fieldname IN lt_lvc_fname.
重命名
PERFORM frm_reset_fieldtxt USING gt_fieldcat_h 'FLG_JJFK' '是否紧急'.
FORM frm_reset_fieldtxt USING it_fieldcat TYPE lvc_t_fcat
pv_field
pv_text.
READ TABLE it_fieldcat ASSIGNING FIELD-SYMBOL(<lfs_fieldcat>) WITH KEY fieldname = pv_field.
IF sy-subrc EQ 0.
<lfs_fieldcat>-coltext =
<lfs_fieldcat>-scrtext_l =
<lfs_fieldcat>-scrtext_m =
<lfs_fieldcat>-scrtext_s =
<lfs_fieldcat>-reptext = pv_text.
ENDIF.
IF line_exists( gt_fieldcat_h[ fieldname = 'ZQXBSM' ] ) AND p_sfct NE 'X'.
gt_fieldcat_h[ fieldname = 'ZQXBSM' ]-edit = abap_true.
ENDIF.
文章来自于网络,如果侵犯了您的权益,请联系站长删除!