手动创建table control实例
来源:互联网 发布:js 怎么取数组前10条 编辑:程序博客网 时间:2024/05/16 09:02
屏幕流代码:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP WITH CONTROL tab_crl.
MODULE filltab1.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP WITH CONTROL tab_crl.
MODULE readtab1.
ENDLOOP.
MODULE USER_COMMAND_0100.
主程序代码:
REPORT ztest_pillar.
DATA: ok_code TYPE sy-ucomm.
DATA: save_ok TYPE sy-ucomm.
DATA: nums TYPE i.
"定义内表存储数据库数据
DATA: sp2 LIKE TABLE OF spfli WITH HEADER LINE.
"定义单结构记录,table control中行记录字段值就是参考该结构。而该结构要从SP2内表中取数。
DATA: sp1 TYPE spfli.
"增加内表数据
SELECT * INTO CORRESPONDING FIELDS OF TABLE sp2 FROM spfli.
"直接调用窗口
CALL SCREEN 100.
"定义表控制对象
CONTROLS tab_crl TYPE TABLEVIEW USING SCREEN 100.
"输出数据看内表有无改变
LOOP AT sp2.
WRITE: / sp2-carrid, sp2-connid.
ENDLOOP.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS1'.
* SET TITLEBAR 'xxx'.
"给tabcontrol增加控制条----------------------------------------------------
IF nums = 0.
DESCRIBE TABLE sp2 LINES nums.
tab_crl-lines = nums.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module FILLTAB1 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE filltab1 OUTPUT.
READ TABLE sp2 INTO sp1 INDEX tab_crl-current_line.
ENDMODULE. " FILLTAB1 OUTPUT
*&---------------------------------------------------------------------*
*& Module READTAB1 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE readtab1 INPUT.
MODIFY sp2 FROM sp1 INDEX tab_crl-current_line.
ENDMODULE. " READTAB1 INPUT
- 手动创建table control实例
- Oracle手动创建实例
- ABAP:为Table Control创建Context Menu
- Oracle 手动创建实例(windows)
- 手动创建oracle数据库实例
- .net中创建table手动添加列
- linux手动创建oracle实例全过程
- table control的修改/排序/删除功能实现实例
- table control的修改/排序/删除功能实现实例
- table control的修改/排序/删除功能实现实例
- table control的修改/排序/删除功能实现实例
- ABAP 使用向导创建TABLE CONTROL (TC 表控件)
- Android开发—数据库应用—手动创建(SQLite)数据库--手动创建数据表(table)
- aix下新建实例和手动创建数据库
- AWS - 手动创建VPC 公网,子网和NAT实例
- Table Control例子
- table control 排序
- table control相关链接:
- cms系统核心发布提取过程的调整优化
- linux汇编语言简介
- 发现mysql 的一桩怪事
- TCP握手/挥手的过程分析
- Spring使用之:Quartz定时任务为什么会被阻塞
- 手动创建table control实例
- 主题演讲:《中国IT外包新视界— 当中国成为世界第二大经济体 》
- 工作花费时间
- JNA介绍
- ruby1.8 1.9问题
- Autoconf/automake step by step
- 文本框样式大全
- 最新消息:原谷歌中国副院长刘骏任职人民搜索首席科学家
- local class