2020-09-07 20:29发布
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
我想在另一个里面显示一个lv。 我已附上输出的屏幕截图。
每当我单击ID之一时,它就会显示整个表,但我只想显示该特定ID,而不是整个表。 例如:当我单击ID号'16'时,它应该显示第二个表的相应字段,其中包含ID号'16'
您如何处理代码中的HOTSPOT_CLICK事件?
这是我编写的代码: report zreport31051。 type- 池:slis。类型:ty_zstud1的开头, zstudname1的类型zstud1-zstudname1, zstudid1的类型zstud1-zstudd1, zstudage的类型zstud1-zstudage, zaddress的类型zstud1- zaddress, zmobile类型zstud1-zmobile, zagef类型zstud1-zagef,ty_zstud1的结尾。 types:ty_zstud3的开头, zstudid1类型zstud3-zstudid1, zmaths类型zstud3-zmaths, zscience类型zstud3-zscience, zenglish类型zstud3-zenglish, ty_zstud3的结尾。 类型zstud1。 data:it_zstud3类型的zstud3表, wa_zstud3类型zstud3。 data:it_fieldcat类型slis_t_fieldcat_alv, wa_fieldcat类型slis_fieldcat_alv, it_fieldcat1类型。 执行disp_zstud1。 形成disp_zstud1。选择zstudname1,zstudid1,zstudage,zaddress,zmobile, 从zstud1到表@data(lit_zstud1)中的zagef。 wa_fieldcat-fieldname ='ZSTUDID1'。 wa_fieldcat-seltext_m ='ID'。 wa_fieldcat-hotspot ='X'。 将wa_fieldcat附加到it_fieldcat。清除wa_fieldcat-fieldname ='ZSTUDNAME1'。 wa_fieldcat-seltext_m ='Name'。将wa_fieldcat附加到it_fieldcat。清除wa_fieldcat。 wa_fieldcat-fieldname ='ZSTUDAGE'。 wa_fieldcat-seltext_m ='Age'。将wa_fieldcat附加到it_fieldcat。 clear wa_fieldcat。 wa_fieldcat-fieldname =' ZADDRESS'。 wa_fieldcat-seltext_m ='地址'。将wa_fieldcat附加到it_fieldcat。清除wa_fieldcat。 wa_fieldcat-fieldname ='ZMOBILE'。 wa_fieldcat-seltext_m =' 移动"。将wa_fieldcat附加到it_fieldcat。清除wa_fieldcat。 wa_fieldcat-fieldname ='ZAGEF'。 wa_fieldcat-seltext_m ='年龄因子'。将wa_fieldcat附加到it_fieldcat。 。清除wa_fieldcat。 调用函数'REUSE_ALV_GRID_DISPLAY'导出 * I_INTERFACE_CHECK ='' * I_BYPASSING_BUFFER ='' * I_BUFFER_ACTIVE ='' i_callback_program = sy-cprog * I_CALLBACK_PF_STATUS_SET ='' i_callback_user_command ='UCOMMAND' * I_CALLBACK_TO ' * I_CALLBACK_HTML_TOP_OF_PAGE ='' * I_CALLBACK_HTML_END_OF_LIST ='' * I_STRUCTURE_NAME = * I_BACKGROUND_ID ='' * I_GRID_TITLE = * I_GRID_SETTINGS = br> it_fieldcat = it_fieldcat * IT_EXCLUDING = 表 t_outtab = lit_zstud1。 *例外情况 * PROGRAM_ERROR = 1 *其他= 2 如果sy- subrc <> 0. *在此处实施适当的错误处理 endif。 endform。 使用像sy-ucomm selfield类型slis_selfield这样的ucomm形成ucommand。 > *调用函数'CONVERSION_EXIT_ALPHA_INPUT' *导出 *输入= selfie_value *导入 *输出= wa_zstud1-zstudid1。 *执行get_zstud3。 执行 disp_zstud3。 endform。窗体disp_zstud3。从中选择zstudid1,zmaths,zscience和zenglish 将zstud3插入表@data(lit_zstud3)中。 wa_fieldcat-fieldname ='ZSTUDID1'。 wa_fieldcat-seltext_m ='学生ID'。将wa_fieldcat附加到it_fieldcat1。 br> wa_fieldcat-fieldname ='ZMATHS'。 wa_fieldcat-seltext_m ='数学'。将wa_fieldcat附加到it_fieldcat1。 clear wa_fieldcat。 '。 wa_fieldcat-seltext_m ='科学'。将wa_fieldcat附加到it_fieldcat1。清除wa_fieldcat。 wa_fieldcat-fieldname ='ZENGLISH'。 wa_fieldcat-seltext_m ='英文 '。将wa_fieldcat追加到it_fieldcat1。清除wa_fieldcat。调用函数'REUSE_ALV_GRID_DISPLAY' exporting * I_INTERFACE_CHECK ='' * I_BYPASSING_BUFFER ='' * I_BUFFER_ACTIVE ='' i_callback_program = sy-cprog * I_CALLBACK_PF_STATUS_SET ='' * i_callback_user_command ='UCOMMAND' * I_CALLBACK_TOP_OF_PAGE ='' * I_CALLBACK_HTML_TO I_CALLBACK_HTML_END_OF_LIST ='' * I_STRUCTURE_N AME = * I_BACKGROUND_ID ='' * I_GRID_TITLE = * I_GRID_SETTINGS = * IS_LAYOUT = it_fieldcat = it_fieldcat1 * IT_EXCLUDING = 表 t_outtab = lit_zstud3 。 * EXCEPTIONS * PROGRAM_ERROR = 1 * OTHERS = 2 刷新it_fieldcat1。如果sy-subrc <>0。 *在此处实施适当的错误处理 endif 。 endform。
您忘记了
也不要使用这种过时的技术,请考虑OO和cl_salv_table(显示)或cl_gui_alv_grid类(如果需要udpate)
是 您使用(尝试)非常老的课程支持吗?
最多设置5个标签!
您如何处理代码中的HOTSPOT_CLICK事件?
这是我编写的代码:
执行 disp_zstud3。
report zreport31051。
type- 池:slis。
类型:ty_zstud1的开头,
zstudname1的类型zstud1-zstudname1,
zstudid1的类型zstud1-zstudd1,
zstudage的类型zstud1-zstudage,
zaddress的类型zstud1- zaddress,
zmobile类型zstud1-zmobile,
zagef类型zstud1-zagef,ty_zstud1的结尾。
types:ty_zstud3的开头,
zstudid1类型zstud3-zstudid1,
zmaths类型zstud3-zmaths,
zscience类型zstud3-zscience,
zenglish类型zstud3-zenglish,
ty_zstud3的结尾。 类型zstud1。
data:it_zstud3类型的zstud3表,
wa_zstud3类型zstud3。
data:it_fieldcat类型slis_t_fieldcat_alv,
wa_fieldcat类型slis_fieldcat_alv,
it_fieldcat1类型。
执行disp_zstud1。
形成disp_zstud1。
选择zstudname1,zstudid1,zstudage,zaddress,zmobile, 从zstud1到表@data(lit_zstud1)中的zagef。
wa_fieldcat-fieldname ='ZSTUDID1'。
wa_fieldcat-seltext_m ='ID'。
wa_fieldcat-hotspot ='X'。
将wa_fieldcat附加到it_fieldcat。
清除wa_fieldcat-fieldname ='ZSTUDNAME1'。
wa_fieldcat-seltext_m ='Name'。
将wa_fieldcat附加到it_fieldcat。
清除wa_fieldcat。
wa_fieldcat-fieldname ='ZSTUDAGE'。
wa_fieldcat-seltext_m ='Age'。
将wa_fieldcat附加到it_fieldcat。
clear wa_fieldcat。
wa_fieldcat-fieldname =' ZADDRESS'。
wa_fieldcat-seltext_m ='地址'。
将wa_fieldcat附加到it_fieldcat。
清除wa_fieldcat。
wa_fieldcat-fieldname ='ZMOBILE'。
wa_fieldcat-seltext_m =' 移动"。
将wa_fieldcat附加到it_fieldcat。
清除wa_fieldcat。
wa_fieldcat-fieldname ='ZAGEF'。
wa_fieldcat-seltext_m ='年龄因子'。
将wa_fieldcat附加到it_fieldcat。 。
清除wa_fieldcat。
调用函数'REUSE_ALV_GRID_DISPLAY'
导出
* I_INTERFACE_CHECK =''
* I_BYPASSING_BUFFER =''
* I_BUFFER_ACTIVE =''
i_callback_program = sy-cprog
* I_CALLBACK_PF_STATUS_SET =''
i_callback_user_command ='UCOMMAND'
* I_CALLBACK_TO '
* I_CALLBACK_HTML_TOP_OF_PAGE =''
* I_CALLBACK_HTML_END_OF_LIST =''
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID =''
* I_GRID_TITLE =
* I_GRID_SETTINGS =
br> it_fieldcat = it_fieldcat
* IT_EXCLUDING =
表
t_outtab = lit_zstud1。
*例外情况
* PROGRAM_ERROR = 1
*其他= 2
如果sy- subrc <> 0.
*在此处实施适当的错误处理
endif。
endform。
使用像sy-ucomm selfield类型slis_selfield这样的ucomm形成ucommand。
> *调用函数'CONVERSION_EXIT_ALPHA_INPUT'
*导出
*输入= selfie_value
*导入
*输出= wa_zstud1-zstudid1。
*执行get_zstud3。
endform。窗体disp_zstud3。
从中选择zstudid1,zmaths,zscience和zenglish 将zstud3插入表@data(lit_zstud3)中。
wa_fieldcat-fieldname ='ZSTUDID1'。
wa_fieldcat-seltext_m ='学生ID'。
将wa_fieldcat附加到it_fieldcat1。 br>
wa_fieldcat-fieldname ='ZMATHS'。
wa_fieldcat-seltext_m ='数学'。
将wa_fieldcat附加到it_fieldcat1。
clear wa_fieldcat。 '。
wa_fieldcat-seltext_m ='科学'。
将wa_fieldcat附加到it_fieldcat1。
清除wa_fieldcat。
wa_fieldcat-fieldname ='ZENGLISH'。
wa_fieldcat-seltext_m ='英文 '。
将wa_fieldcat追加到it_fieldcat1。
清除wa_fieldcat。
调用函数'REUSE_ALV_GRID_DISPLAY'
exporting
* I_INTERFACE_CHECK =''
* I_BYPASSING_BUFFER =''
* I_BUFFER_ACTIVE =''
i_callback_program = sy-cprog
* I_CALLBACK_PF_STATUS_SET =''
* i_callback_user_command ='UCOMMAND'
* I_CALLBACK_TOP_OF_PAGE =''
* I_CALLBACK_HTML_TO I_CALLBACK_HTML_END_OF_LIST =''
* I_STRUCTURE_N AME =
* I_BACKGROUND_ID =''
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
it_fieldcat = it_fieldcat1
* IT_EXCLUDING =
表
t_outtab = lit_zstud3 。
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
刷新it_fieldcat1。
如果sy-subrc <>0。
*在此处实施适当的错误处理
endif 。
endform。
您忘记了
也不要使用这种过时的技术,请考虑OO和cl_salv_table(显示)或cl_gui_alv_grid类(如果需要udpate)
是 您使用(尝试)非常老的课程支持吗?
一周热门 更多>