行选择交互事件
行选择交互事件（AT LINE-SELECTION）是列表事件的一种，当用户双击write输出的报表行时，触发该事件。
例子：用write输出一个人员报表，双击某行，触发AT LINE-SELECTION事件，弹出人员详细信息。
例子程序代码：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
REPORT z_line_selection.
DATA: BEGIN OF git_main OCCURS 0,
number(10) TYPE c,
name(10) TYPE c,
END OF git_main.
DATA: BEGIN OF gwa_pop,
number(10) TYPE c,
name(10) TYPE c,
sex(2) TYPE c,
age TYPE i,
address(10) TYPE c,
END OF gwa_pop.
DATA: git_detail LIKE STANDARD TABLE OF gwa_pop WITH HEADER LINE.
AT LINE-SELECTION.
* 响应双击行
PERFORM frm_popup.
START-OF-SELECTION.
PERFORM frm_data_set.
* write输出
PERFORM frm_data_write.
*&---------------------------------------------------------------------*
*& Form FRM_POPUP
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_popup .
* 弹出窗口
WINDOW STARTING AT 10 20 ENDING AT 50 25.
CASE sy-lisel.
WHEN '张三'.
READ TABLE git_detail WITH KEY number = '11001' INTO gwa_pop. "选定行的内容
WHEN '李四'.
READ TABLE git_detail WITH KEY number = '11002' INTO gwa_pop.
WHEN '王五'.
READ TABLE git_detail WITH KEY number = '11003' INTO gwa_pop.
ENDCASE.
IF gwa_pop IS NOT INITIAL.
WRITE:/ '编号:',gwa_pop-number.
WRITE:/ '姓名:',gwa_pop-name.
WRITE:/ '性别:',gwa_pop-sex.
WRITE:/ '年龄:',gwa_pop-age.
WRITE:/ '地址:',gwa_pop-address.
ENDIF.
ENDFORM. " FRM_POPUP
*&---------------------------------------------------------------------*
*& Form FRM_DATA_SET
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_data_set .
REFRESH: git_main,git_detail.
git_main-number = '11001'.
git_main-name = '张三'.
APPEND git_main.
git_main-number = '11002'.
git_main-name = '李四'.
APPEND git_main.
git_main-number = '11003'.
git_main-name = '王五'.
APPEND git_main.
git_detail-number = '11001'.
git_detail-name = '张三'.
git_detail-sex = '男'.
git_detail-age = '25'.
git_detail-address = '江苏苏州'.
APPEND git_detail.
git_detail-number = '11002'.
git_detail-name = '李四'.
git_detail-sex = '男'.
git_detail-age = '50'.
git_detail-address = '浙江杭州'.
APPEND git_detail.
git_detail-number = '11003'.
git_detail-name = '王五'.
git_detail-sex = '女'.
git_detail-age = '19'.
git_detail-address = '上海'.
APPEND git_detail.
ENDFORM. " FRM_DATA_SET
*&---------------------------------------------------------------------*
*& Form FRM_DATA_WRITE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_data_write .
LOOP AT git_main.
WRITE:/ git_main-name.
ENDLOOP.
ENDFORM. " FRM_DATA_WRITE
|
运行：
以上。
