ABAPOOALV 固定列鼠标悬停文本
Don't make a permanent decision for your temporary emotion.
别因一时冲动去做影响一生的决定。
1
程序效果
2
源码分享
TYPES
BEGIN OF gty_spfli_incl ,
snum TYPE i ,
icon TYPE icon_d ,
END OF gty_spfli_incl .DATA
BEGIN OF gs_spfli .
INCLUDE TYPE spfli .
INCLUDE TYPE gty_spfli_incl .DATA
END OF gs_spfli ,gt_spfli LIKE TABLE OF gs_spfli .
DATA go_alv TYPE REF TO cl_gui_alv_grid .
DATA gs_layout TYPE lvc_s_layo .
DATA gt_fieldcat TYPE lvc_t_fcat .
DATA gs_fieldcat TYPE lvc_s_fcat .
DATA gs_sort TYPE lvc_s_sort .
DATA gt_sort TYPE lvc_t_sort .
DATA gt_filter TYPE lvc_t_filt .
DATA gs_filter TYPE lvc_s_filt .
DATA gs_variant TYPE disvariant .
DATA gt_qinfo TYPE alv_t_qinf .
DATA gs_qinfo TYPE alv_s_qinf .
INITIALIZATION .
sy \- title = 'ABAP OOALV演示程序-公众号（ABAP猿）' .
gs_variant \- report = sy \- repid .
START-OF-SELECTION .
SELECT * FROM spfli INTO TABLE gt_spfli UP TO 30 ROWS .LOOP AT gt_spfli INTO gs_spfli .gs_spfli \- snum = sy \- tabix .
CASE sy \- tabix .
WHEN 1 .
gs_spfli \- icon = '@5B@' .
WHEN 2 .
gs_spfli \- icon = '@5C@' .
WHEN 3 .
gs_spfli \- icon = '@5D@' .
WHEN OTHERS .
ENDCASE .
MODIFY gt_spfli FROM gs_spfli .
ENDLOOP .CREATE OBJECT go_alv
EXPORTING
i_parent = cl_gui_container => default_screen .DATA lo_evt_handler TYPE REF TO lcl_evt_handler .
CREATE OBJECT lo_evt_handler .
SET HANDLER
lo_evt_handler -> toolbar FOR go_alv ,
lo_evt_handler -> hotspot_click FOR go_alv ,
lo_evt_handler -> double_click FOR go_alv ,
lo_evt_handler -> before_user_command FOR go_alv ,
lo_evt_handler -> user_command FOR go_alv ,
lo_evt_handler -> after_user_command FOR go_alv .
CLEAR gs_layout .
gs_layout \- zebra = 'X' .
gs_layout \- cwidth_opt = 'X' .
gs_layout \- sel_mode = 'D' .
gs_layout \- keyhot = 'X' .
gs_layout \- no_keyfix = 'X' . "<\------ Key不固定
"添加排序
CLEAR gs_sort .
gs_sort \- spos = '1' .
gs_sort \- fieldname = 'CARRID' .
gs_sort \- subtot = 'X' .
gs_sort \- up = 'X' .
gs_sort \- down = '' .
APPEND gs_sort TO gt_sort ."添加过滤
CLEAR gs_filter .
gs_filter \- fieldname = 'CARRID' .
gs_filter \- sign = 'E' .
gs_filter \- option = 'EQ' .
gs_filter \- low = 'JL' .
APPEND gs_filter TO gt_filter .*------------------------------------*
"添加鼠标悬停文本
gs_qinfo \- type = cl_salv_tooltip => c_type_icon .gs_qinfo \- value = '@5B@' .
gs_qinfo \- text = '图标值：绿灯！' .
APPEND gs_qinfo TO gt_qinfo .gs_qinfo \- type = cl_salv_tooltip => c_type_icon .gs_qinfo \- value = '@5C@' .
gs_qinfo \- text = '图标值：红灯！' .
APPEND gs_qinfo TO gt_qinfo .gs_qinfo \- type = cl_salv_tooltip => c_type_icon .gs_qinfo \- value = '@5D@' .
gs_qinfo \- text = '图标值：黄灯！' .
APPEND gs_qinfo TO gt_qinfo .*------------------------------------*
"字段目录
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'EXPORTING
i_structure_name = 'SPFLI'
CHANGING
ct_fieldcat = gt_fieldcat .
"添加输出列
CLEAR gs_fieldcat .
gs_fieldcat \- fieldname = 'SNUM' .
gs_fieldcat \- reptext = '序号' .
APPEND gs_fieldcat TO gt_fieldcat .CLEAR gs_fieldcat .
gs_fieldcat \- fieldname = 'ICON' .
gs_fieldcat \- reptext = '图标' .
APPEND gs_fieldcat TO gt_fieldcat .FIELD-SYMBOLS <fcat> LIKE gs_fieldcat .
LOOP AT gt_fieldcat ASSIGNING <fcat> .CASE <fcat> \- fieldname .
WHEN 'DISTANCE' .
<fcat> \- do_sum = 'X' .
WHEN 'PERIOD' .
<fcat> \- no_out = 'X' . "不可见
<fcat> \- tech = 'X' . "不可用（技术列）
WHEN 'COUNTRYFR' .
<fcat> \- reptext = '起飞国家' .
<fcat> \- scrtext_s = '起飞国家' .
<fcat> \- scrtext_m = '起飞国家' .
<fcat> \- scrtext_l = '起飞国家' .
WHEN 'COUNTRYTO' .
<fcat> \- reptext = '到达国家' .
<fcat> \- scrtext_s = '到达国家' .
<fcat> \- scrtext_m = '到达国家' .
<fcat> \- scrtext_l = '到达国家' .
WHEN 'SNUM' .
<fcat> \- col_pos = 1 .
<fcat> \- just = 'C' .
<fcat> \- fix_column = 'X' . "<\------固定列
WHEN 'ICON' .
<fcat> \- col_pos = 1 .
<fcat> \- icon = 'X' .
<fcat> \- just = 'C' .
<fcat> \- fix_column = 'X' . "<\------固定列
<fcat> \- tooltip = '列标题：鼠标悬停有文本！' . "<\------列悬停文本
WHEN OTHERS .
ENDCASE .
ENDLOOP .CALL METHOD go_alv -> set_table_for_first_displayEXPORTING
is_variant = gs_variant
i_save = 'A'
is_layout = gs_layout
it_except_qinfo = gt_qinfo "<\------悬停信息
CHANGING
it_outtab = gt_spfli
it_fieldcatalog = gt_fieldcat
it_sort = gt_sort
it_filter = gt_filter .
cl_abap_list_layout => suppress_toolbar ( ).
WRITE space .
3
AI解释
仅供参考
ABAP OOALV 高级功能演示
介绍：
这段ABAP代码在之前的OOALV演示程序基础上，添加了两个新功能：固定列和鼠标悬停文本。下面将详细解释这两项新功能。
1\. 固定列的添加：
固定列是一项用于提升用户体验的功能。通过设置固定列，用户在水平滚动表格时，这些列会保持可见，不会被滚动出屏幕。在本例中，我们选择了序号 ` SNUM `
和图标 ` ICON ` 列来进行固定，以确保用户能够随时了解关键信息。
2\. 鼠标悬停文本的添加：
鼠标悬停文本是一项用于提供更多信息的功能。通过添加悬停信息，我们使得当用户将鼠标悬停在特定列上时，会显示自定义文本。在这个演示中，我们为图标列 `
ICON ` 添加了悬停文本，提供了关于每个图标含义的解释。这有助于用户更好地理解报表内容，提高了用户友好性。
通过这两个功能的添加，你可以使你的OOALV报表更加灵活和用户友好。固定列提供了更好的表格导航体验，而悬停文本则为用户提供了更多关于每列的说明，使报表更易于理解。
源码篇幅较长 ，后台回 复 " **20231114** " 获取
以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ ABAP SALV-固定列、鼠标悬停文本
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247493872&idx=1&sn=1fa17646f6b0480b58fa103bba4b92c0&chksm=cf0a3c1ef87db508e62dfeac62f0366048c9e6727463da42c700af5716cbb6b79df0b34d872a&scene=21#wechat_redirect)
[ ABAP SALV-演示程序 源码分享
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247494081&idx=1&sn=671c4de5734c7131744f47fd6abeab65&chksm=cf0a3d2ff87db43943c9a773f2572b79df043fae880909bed6178a5c2e5a308cf16f39f75aba&scene=21#wechat_redirect)
点个 在看 你最好看
