![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
abap里面的AT USER-COMMAND事件到底怎么用啊。。
SELECTION-SCREENPUSHBUTTON/1(20)PUBU1USER-COMMANDABCD.SELECTION-SCREENSKIP.SELECTION-...
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU1 USER-COMMAND ABCD.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'ABCD'.
MESSAGE I005(MsgClass) WITH '111'.
WHEN 'ABCE'.
MESSAGE I005(MsgClass) WITH '222'.
WHEN OTHERS.
MESSAGE I005(MsgClass) WITH '333'.
ENDCASE.
上面两个按钮怎么点都没反应啊,上面的代码怎么改一下可以执行CASE和WHEN里面的语句?
哪位帮帮忙,十分感谢! 展开
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'ABCD'.
MESSAGE I005(MsgClass) WITH '111'.
WHEN 'ABCE'.
MESSAGE I005(MsgClass) WITH '222'.
WHEN OTHERS.
MESSAGE I005(MsgClass) WITH '333'.
ENDCASE.
上面两个按钮怎么点都没反应啊,上面的代码怎么改一下可以执行CASE和WHEN里面的语句?
哪位帮帮忙,十分感谢! 展开
5个回答
展开全部
user command与 at user-command没有半点关系 除了长得有点像
If the user selects the pushbutton on the selection screen, the runtime environment triggers the event AT SELECTION-SCREEN and the function code fcode is transferred to the ucomm component in the interface work area sscrfields.
他触发的是 AT SELECTION-SCREEN这个事件
AT USER-COMMAND.
Effect
This statement defines an event block whose event is triggered by the ABAP runtime environment if, during the display of a screen list, a function with a self-defined function
code was chosen.
这个是需要一个自定义的function code来触发的
也就是 SET PF-STATUS 'MYLIST' guistatus里面的function code
If the user selects the pushbutton on the selection screen, the runtime environment triggers the event AT SELECTION-SCREEN and the function code fcode is transferred to the ucomm component in the interface work area sscrfields.
他触发的是 AT SELECTION-SCREEN这个事件
AT USER-COMMAND.
Effect
This statement defines an event block whose event is triggered by the ABAP runtime environment if, during the display of a screen list, a function with a self-defined function
code was chosen.
这个是需要一个自定义的function code来触发的
也就是 SET PF-STATUS 'MYLIST' guistatus里面的function code
追问
“guistatus里面的function code”
这里的guistatus指的是菜单栏和工具栏那些么?选择屏幕里的普通元素比如按钮,复选框可以用到这个吗?
追答
选择屏幕都触发 AT SELECTION-SCREEN
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把AT USER-COMMAND.换成AT SELECTION-SCREEN .
AT SELECTION-SCREEN .是选择屏幕的PAI事件。
AT SELECTION-SCREEN .是选择屏幕的PAI事件。
更多追问追答
追问
嗯,AT SELECTION-SCREEN 的用法我知道,我只是想知道这个AT USER-COMMAND到底应该怎么用的?
追答
AT USER-COMMAND 是列表交互事件,它实现的前提条件是自定义的GUI状态和用户行为的接收;给你一个列表交互示例,自己多DEBUG就明白了:
注:SET PF-STATUS 'TEST' EXCLUDING 'PICK'.这句话中的TEST是GUI状态(就是你指的工具栏和菜单栏)的名字,需要新建,然后在GUI状态-应用工具条中添加五个按钮,功能代码分别为FC01~FC05.
REPORT Z_LIST_AT_USER_COMMAND.
START-OF-SELECTION.
WRITE: 'Basic List', / 'SY-LSIND: ', sy-lsind.
TOP-OF-PAGE.
WRITE: 'Top-of-Page'.
ULINE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-pfkey.
WHEN 'TEST'.
WRITE 'Self-defined GUI for Function Codes'.
ULINE.
ENDCASE.
AT LINE-SELECTION.
SET PF-STATUS 'TEST' EXCLUDING 'PICK'.
PERFORM out.
sy-lsind = sy-lsind - 1.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'FC01'.
PERFORM out.
WRITE / 'Button Fun 1 was pressed'.
WHEN 'FC02'.
PERFORM out.
WRITE / 'Button Fun 2 was pressed'.
WHEN 'FC03'.
PERFORM out.
WRITE / 'Button Fun 3 was pressed'.
WHEN 'FC04'.
PERFORM out.
WRITE / 'Button Fun 4 was pressed'.
WHEN 'FC05'.
PERFORM out.
WRITE / 'Button Fun 5 was pressed'.
ENDCASE.
sy-lsind = sy-lsind - 1.
*&---------------------------------------------------------------------*
*& Form out
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM out.
WRITE: 'Secondary List', / 'SY-LSIND: ', sy-lsind, / 'SY-PFKEY: ', sy-pfkey.
ENDFORM. "out
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把AT USER-COMMAND
修改为 AT SELECTION-SCREEN. 就可以了
AT SELECTION-SCREEN.(说明下面的代码是PAI,可以响应屏幕事件)
你还可以在最后添加初始化,让按钮显示提示文本
INITIALIZATION.
pubu1 = 'ABCD'.
pubu2 = 'ABCE'.
修改为 AT SELECTION-SCREEN. 就可以了
AT SELECTION-SCREEN.(说明下面的代码是PAI,可以响应屏幕事件)
你还可以在最后添加初始化,让按钮显示提示文本
INITIALIZATION.
pubu1 = 'ABCD'.
pubu2 = 'ABCE'.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU1 USER-COMMAND ABCD.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.
AT SELECTION-SCREEN. "选择屏幕的PAI事件。
CASE sy-ucomm.
WHEN 'ABCD'.
MESSAGE I005(MsgClass) WITH '111'.
WHEN 'ABCE'.
MESSAGE I005(MsgClass) WITH '222'.
WHEN OTHERS.
MESSAGE I005(MsgClass) WITH '333'.
ENDCASE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.
AT SELECTION-SCREEN. "选择屏幕的PAI事件。
CASE sy-ucomm.
WHEN 'ABCD'.
MESSAGE I005(MsgClass) WITH '111'.
WHEN 'ABCE'.
MESSAGE I005(MsgClass) WITH '222'.
WHEN OTHERS.
MESSAGE I005(MsgClass) WITH '333'.
ENDCASE.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我帮你改好了,别忘给分呀。
REPORT Z_STUDY_CASE_032 .
TABLES SSCRFIELDS.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU1 USER-COMMAND ABCD.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'ABCD'.
WRITE '111'.
WHEN 'ABCE'.
MESSAGE I005(MsgClass) WITH '222'.
WHEN OTHERS.
MESSAGE I005(MsgClass) WITH '333'.
ENDCASE.
AT SELECTION-SCREEN.是处理选择屏幕PAI事件的。
而 AT USER-COMMAND是处理GUI的,即你手工创建一个按钮,当你点击那个按钮时就会触发AT USER-COMMAND事件。
REPORT Z_STUDY_CASE_032 .
TABLES SSCRFIELDS.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU1 USER-COMMAND ABCD.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'ABCD'.
WRITE '111'.
WHEN 'ABCE'.
MESSAGE I005(MsgClass) WITH '222'.
WHEN OTHERS.
MESSAGE I005(MsgClass) WITH '333'.
ENDCASE.
AT SELECTION-SCREEN.是处理选择屏幕PAI事件的。
而 AT USER-COMMAND是处理GUI的,即你手工创建一个按钮,当你点击那个按钮时就会触发AT USER-COMMAND事件。
追问
嗯,谢谢回复!再问下:GUI是指菜单栏和工具栏那些么?选择屏幕不属于GUI是吗?我新手,求解答。。谢谢!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询