*&---------------------------------------------------------------------**& Form PF_USER_COMMAND*&---------------------------------------------------------------------** USER_COMMAND*----------------------------------------------------------------------** -->P_UCOMM text* -->PS_SELFIELD text*----------------------------------------------------------------------*FORM PF_USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
PS_SELFIELD TYPE SLIS_SELFIELD.CASE P_UCOMM.WHEN 'DOWN'.* 下载数据到xls文件PERFORM FRM_DOWNLOAD_DATA.WHEN OTHERS.ENDCASE.
PS_SELFIELD-REFRESH = 'X'.ENDFORM. "PF_USER_COMMAND
*&---------------------------------------------------------------------**& Form FRM_DOWNLOAD_DATA*&---------------------------------------------------------------------** 下载数据到xls文件*----------------------------------------------------------------------*FORM FRM_DOWNLOAD_DATA