write输出带有Checkbox的双击事件的结果实例

执行效果：

双击任意一行


主程序代码：

1. TABLES SPFLI.
   
2. DATA:SELA(1) TYPE C,
   
3.      NUM1 TYPE I.
   
4. 
   
5. START-OF-SELECTION.
   
6. SKIP.
   
7. ULINE AT /(95).
   
8. WRITE:/ SY-VLINE,'',SY-VLINE,(15)'航线承运人',SY-VLINE,(15)'航班链接',SY-VLINE,(15)'国家代码',SY-VLINE,(15)'起飞城市',SY-VLINE,(15)'起飞机场',SY-VLINE.
   
9. ULINE AT /(95).
   
10. 
    
11. SELECT * FROM SPFLI.
    
12.   WRITE:/ SY-VLINE,SELA AS CHECKBOX,SY-VLINE,(15)SPFLI-CARRID,SY-VLINE,(15)SPFLI-CONNID,SY-VLINE,(15)SPFLI-COUNTRYTO,SY-VLINE,
    
13.          (15)SPFLI-CITYFROM,SY-VLINE,(15)SPFLI-AIRPFROM,SY-VLINE.
    
14. HIDE:SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO,SPFLI-CITYFROM,SPFLI-AIRPFROM.
    
15. ULINE AT /(95).
    
16. 
    
17. HIDE:SELA.
    
18. ENDSELECT.
    
19. 
    
20. END-OF-SELECTION.
    
21. NUM1 = SY-LINNO - 1. "当前总行 非选中的行数
    
22. 
    
23. AT LINE-SELECTION.
    
24.   IF SY-LSIND = 1.
    
25.     DO NUM1  TIMES.
    
26.       READ LINE SY-INDEX FIELD VALUE SELA. "SY-INDEX循环索引号    FIELD VALUE SELA只读取sela变量的value
    
27.       IF SELA = 'X'.
    
28.          WRITE:/ SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO,SPFLI-CITYFROM,SPFLI-AIRPFROM.
    
29.       ENDIF.
    
30.     ENDDO.
    
31. 
    
32.   ENDIF.

复制代码