hi

如果您的lv功能正常，请参见以下代码。

报告ZDEMO2。


类型库：SLIS。


类型：TY_VBAK的开头，
VBELN类型VBAK-VBELN，
ERDAT类型 VBAK-ERDAT，
ERZET型VBAK-ERZET，
ERNAM型VBAK-ERNAM，
TY_VBAK的末端，
TT_VBAK型TY_VBAK的标准表。


数据： GT_VBAK类型TT_VBAK。

DATA：GT_FIELDCAT类型SLIS_T_FIELDCAT_ALV，
GS_FIELDCAT类型SLIS_FIELDCAT_ALV。





START-OF-SELECTION。

从VBAK中选择VBELN ERDAT ERZET ERNAM到表GT_VBAK中，直到10行。




结束选择。


REFRESH：GT_FIELDCAT [] 。

清除GS_FIELDCAT。
GS_FIELDCAT-FIELDNAME ='VBELN'。
GS_FIELDCAT-SELTEXT_L ='销售文档'。
GS_FIELDCAT-HOTSPOT ='X'。
将GS_FIELDCAT附加到 GT_FIELDCAT。

清除GS_FIELDCAT。
GS_FIELDCAT-FIELDNAME ='ERDAT'。
GS_FIELDCAT-SELTEXT_L ='创建日期'。
将GS_FIELDCAT追加到GT_FIELDCATD。


CLEAR 。
GS_FIELDCAT-FIELDNAME ='ERZET'。
GS_ FIELDCAT-SELTEXT_L ='输入时间'。
将GS_FIELDCAT追加到GT_FIELDCAT。

清除GS_FIELDCAT。
GS_FIELDCAT-FIELDNAME ='ERNAM'。
GS_FIELDCAT-SELTEXT_L ='人名'。
将GS_FIELDCAT追加到GT_FIELDCAT。



调用功能'REUSE_ALV_GRID_DISPLAY'
导出
I_CALLBACK_PROGRAM = SY-CPROG
I_CALLBACK_USER_COMMAND ='USER_COMMAND' GT_FIELDCAT
表格
T_OUTTAB = GT_VBAK
例外情况
PROGRAM_ERROR = 1
其他=2。




IF 1 = 4。 >
ENDIF。








表格USER_COMMAND使用R_UCOMM LIKE SY-UCOMM
RS_SELFIELD类型SLIS_SELFIELD。

IF 1 =4。

ENDIF。


ENDFORM。