IF sy-subrc EQ0。 消息'记录成功更新'类型'S'。 ELSE。 消息'记录未更新'类型'E'。< br> ENDIF。
ENDCASE。
从zemployee INDEX vcontrol-current_line修改it_emp。
设置CURSOR FIELD wa_emp-em ployeeid LINE sel。 * *读取表it_emp INTO wa_emp INDEX vcontrol-current_line。 *如果sel不是INITIAL。 * wa_emp-sel ='X'。 *修改it_emp *清除wa_emp。 * ENDIF。
这如何回答问题? 我很困惑...
嗨
使用以下语句。
获取光标字段第
行设置光标字段行。
这是我的程序。
模块状态_0100输出。
设置PF状态'STATUS'。
设置标题栏'TITLE'。
>在屏幕上循环。
如果屏幕名称EQ'ZEMPLOYEE-EMPLOYEEID'和zemployee-employeeid EQ'X'。
屏幕输入=0。
修改屏幕。
ENDIF。
ENDLOOP。
ENDMODULE。 " STATUS_0100输出
模块user_command_0100输入。
案例ok_code。
当"返回"时。
离开程序 。
模块add_row输出。
选择*从zemployee入表it_emp。
ENDMODULE。" ADD_ROW OUTPUT
*&- -------------------------------------------------- ---------------- *
*&模块USER_DML INPUT
*&-------------------- ------------------------------------------------- *
*文字
* ----------------------------------------- ----------------------------- **
模块user_dml输入。
案例ok_code。< br> *
何时删除'。
如果sel EQ'X'。
从zemployee删除WHERE employeeid = zemployee-employeeid。
如果sy-subrc 均衡器0。
消息'记录已成功删除'类型'S'。
ELSE。
消息'记录未删除'类型'E'。
ENDIF。
ENDIF。
< br>
当'UPDATE'时。
UPDATE zemployee SET firstname = zemployee-firstname
lastname = zemployee-lastna 我
maritalstatus = zemployee-maritalstatus
加入日期= zemployee-dateofing加入
officeextension = zemployee-officeextension
手机= zemployee-mobile
血型= zemployee-bloodgroup
personalemail = zemployee-personalemail < br>部门= zemployee-部门
aadhaarno = zemployee-aadhaarno
employeestatus = zemployee-employeestatus
性别= zemployee-gender
dateofbirth = zemployee-dateofbirth
办公电话= zemployee-办公室电话
homephone = zemployee-homephone
pannumber = zemployee-pannumber
officeemail = zemployee-officeemail
名称= zemployee-designation
主管= zemployee-supervisor
WHERE employeeid = zemployee-employeeid。
IF sy-subrc EQ0。
消息'记录成功更新'类型'S'。
ELSE。
消息'记录未更新'类型'E'。< br> ENDIF。
ENDCASE。
从zemployee INDEX vcontrol-current_line修改it_emp。
设置CURSOR FIELD wa_emp-em ployeeid LINE sel。
*
*读取表it_emp INTO wa_emp INDEX vcontrol-current_line。
*如果sel不是INITIAL。
* wa_emp-sel ='X'。
*修改it_emp
*清除wa_emp。
* ENDIF。
IF sy-subrc NE0。
将zemployee附加到it_emp。
> ENDIF。
ENDMODULE。 " USER_DML INPUT
*&------------------------------------------ --------------------------- *
*&模块GET_DATA OUTPUT
*&--------- -------------------------------------------------- ---------- *
*文字
* ------------------------------ ---------------------------------------- *
MODULE get_data输出。
SELECT *从zemployee进入表it_emp。
ENDMODULE。" GET_DATA OUTPUT
*&---------------------- ----------------------------------------------- *
*&模块GET_CURSOR OUTPUT
*&--------------------------------------- ------------------------------ *
*文字
* ---------- -------------------------------------------------- ---------- *
一周热门 更多>