abap工作区字段比所选字段多

Question

REPORT Y_JUNE_04.
TABLES :EKPO , MAKT.
*定义内表
DATA: BEGIN OF ITABLE OCCURS 0,
EBELN LIKE EKPO-EBELN,"采购订单
MATNR LIKE EKPO-MATNR,"物料号
BUKRS LIKE EKPO-BUKRS,"公司代码
LGORT LIKE EKPO-LGORT,"库存地点
MAKTX LIKE MAKT-MAKTX,"第二张表的字段
END OF ITABLE.
*定义屏幕字段
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001."
SELECT-OPTIONS:S_EBELN FOR EKPO-EBELN."
SELECTION-SCREEN END OF BLOCK B1.
*开始取数
SELECT EBELN MATNR BUKRS LGORT "取第一个表中的数据到内表中区
INTO CORRESPONDING FIELDS OF TABLE ITABLE "这里就有TABLE
FROM EKPO
WHERE EBELN IN S_EBELN.

LOOP AT ITABLE."在读取内表的时候把字段描述添加进去
SELECT SINGLE MAKTX "取物料描述到内表对应字段
INTO ITABLE-MAKTX
FROM MAKT
WHERE MATNR = ITABLE-MATNR .
MODIFY ITABLE."修改数据,应为前面用了TABLE
CLEAR ITABLE.
Endloop.

上面这个程序应该怎么修改啊 报错显示工作区字段比所选字段多。非得删除 itable中关键字吗

Answer 1

在LOOP里面加数据库查询语句的话效率是相当低的，建议你做如下修改：

REPORT Y_JUNE_04.
TABLES :EKPO , MAKT.
*定义内表
DATA: BEGIN OF ITABLE OCCURS 0,
EBELN LIKE EKPO-EBELN,"采购订单
MATNR LIKE EKPO-MATNR,"物料号
BUKRS LIKE EKPO-BUKRS,"公司代码
LGORT LIKE EKPO-LGORT,"库存地点
MAKTX LIKE MAKT-MAKTX,"第二张表的字段
END OF ITABLE.
"--------------------------添加部分-开始-----------------------------
data: begin of t_maktx occurs 0,
matnr like ekpo-matnr,
maktx like makt-maktx,
end of t_maktx.
"--------------------------添加部分-结束-----------------------------
*定义屏幕字段
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001."
SELECT-OPTIONS:S_EBELN FOR EKPO-EBELN."
SELECTION-SCREEN END OF BLOCK B1.
*开始取数
SELECT EBELN MATNR BUKRS LGORT "取第一个表中的数据到内表中区
INTO CORRESPONDING FIELDS OF TABLE ITABLE "这里就有TABLE
FROM EKPO
WHERE EBELN IN S_EBELN.

"--------------------------添加部分-开始-----------------------------
select matnr maktx
into table t_maktx
from makt
for all entries in itable
where matnr = itable-matnr.
"--------------------------添加部分-结束-----------------------------

LOOP AT ITABLE."在读取内表的时候把字段描述添加进去
"--------------------------删除部分-开始-----------------------------
" SELECT SINGLE MAKTX "取物料描述到内表对应字段
" INTO ITABLE-MAKTX
" FROM MAKT
" WHERE MATNR = ITABLE-MATNR .
" MODIFY ITABLE."修改数据,应为前面用了TABLE
" CLEAR ITABLE.
"--------------------------删除部分-结束-----------------------------
"--------------------------添加部分-开始-----------------------------
read table t_maktx with key matnr = itable-matnr.
if sy-subrc = 0.
itable-maktx = t_maktx-maktx.
modify itable.
endif
"--------------------------添加部分-结束-----------------------------
Endloop.

Answer 2

为什么要分开两次查询，一次就完全可以直接搞定，用inner join on 程序如下：
SELECT
EKPO~EBELN "采购订单
EKPO~MATNR "物料号
EKPO~BUKRS "公司代码
EKPO~LGORT "库存地
MAKT~MAKTX "物料描述（第二张表内）
INTO CORRESPONDING FIELDS OF TABLE ITABLE
FROM EKPO
inner join makt on makt~matnr = ekpo~matnr
WHERE EBELN IN S_EBELN.
这样就全部的数据都查询出来了

你之所以会报错是因为你在itable里面声明了5个变量
而在第一个查询语句插入的时候才插入了4个变量值，这样当然会报错了

追问

哦，原来是这样啊，那想请问如果是2张表又没有on 后面的等式关系，该怎么办呢？

追答

你就按照我给你的程序改嘛，多简单，为什么硬要分两张表，只要两张表里面有相同的关联字段，就可以用 inner join on
你那EKPO 和 MAKT不是可以通过MATNR关联的嘛。
如果你真的想分开两次查询就把第一个查询语句改成这样
*开始取数
SELECT EBELN MATNR BUKRS LGORT "取第一个表中的数据到内表中区
INTO
(ITABLE -EBELN,ITABLE-MATNR,ITABLE-BUKRS,ITABLE-LGORT)
FROM EKPO
WHERE EBELN IN S_EBELN.
剩下就可以按照你的方式继续往表内插入物料描述了