*----------------------------------------------------------------------*
*&?? 雙擊界面其中一行，創(chuàng)建一個新界面?? at line-selection 事件中
*----------------------------------------------------------------------*
?? DESCRIBE TABLE it_tab LINES gi_lines.
??????? DO Gi_Lines TIMES.
???????? sy-index = sy-index + 2.

???????? READ LINE sy-index :
???????? FIELD VALUE ckbox INTO ckbox1,
???????? FIELD VALUE st_tab-zzclassid INTO st_tab1-zzclassid,
???????? FIELD VALUE st_tab-zzclassname INTO st_tab1-zzclassname.
*??????? CHECK ckbox1 = 'X'.
???????? APPEND st_tab1 TO it_tab1.
??????? ENDDO.

?????? WINDOW STARTING AT 30 10
??????????????? ENDING AT 60 30.

* OTHER?? " Need Create screen '9000'.
*?????? call screen '9000'
*???????????? STARTING AT 30 10
*?????????????? ENDING AT 60 30.

?????? WRITE:/'|', 2 'ClassId','|', 10 'ClassName','|'.
?????? LOOP AT it_tab1 INTO st_tab1.
???????? WRITE:/'|', 6 st_tab1-zzclassid,
??????????????? '|', 12 st_tab1-zzclassname INPUT ON, 20 '|'.
?????? ENDLOOP.
?????? WRITE :/ '|'.
?????? ULINE 1(20).
????? ENDIF.

總結

以上是生活随笔為你收集整理的创建对话框．的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。