嗨Quynh，

是的，您是正确的！ 一旦我不用复制就重写了整个程序，错误就消失了。

但是现在出现了一个新问题！ 除了水平线和顶部出现的页码外，我什么也没有得到！

您能再帮忙吗？

这是修改后的代码：

报告YCL_CH07_INBOX_MACRO无标准页标题行数60行大小75。
 表格：图标。
 *包括。
 * TYPE-POOLS图标。
 数据：COL型SY-COLNO，
       LIN SY-LINNO，
       长度I，
       PG型SY-PAGNO，
       CNTR I型，
       C型碳纳米管
       V TYPE STRING。

 定义WRITE_GRID。
   COL = SY-COLNO。  LIN = SY-LINNO。
 格式反转＆3增强＆4颜色＆5。
 写：" |"  NO-GAP，（＆2）＆1 NO-GAP，'|' 没有差距

 长度= SY-COLNO-COL。  "得出霍兹线的长度
 LIN = LIN-1。
 ULINE AT COL（长度）。 顶级霍兹线

 LIN = LIN + 2。
 ULINE AT COL（长度）。  " Horiz底线

 LIN = LIN-1。
 COL = SY-COLNO-2。

 跳到林琳。
 位置颜色。

 定义结束。


 选择开始。

 按名称按图标选择*。
   如果CNTR> = 58或CNT初始。
     执行头。
   万一。

  CNT = SY-DBCNT。

  WRITE_GRID CNT 6 ON OFF COL_TOTAL。
  WRITE_GRID图标名称35开关COL_KEY。
  CONCATENATE'@'ICON-ID + 1（2）'@'INTO V.
  WRITE_GRID图标ID 7 ON OFF COL_POSITIVE。
  WRITE_GRID V 4 ON OFF COL_HEADING。

  跳过2。

  位置5。

  CNTR = CNTR + 2。

 ENDSELECT。

 表格标题。

   新页无标题。

   PG = PG + 1。

   写59（3）PG。

   跳过2。

   位置5。

 WRITE_GRID TEXT-001 6 ON OFF COL_TOTAL。

 WRITE_GRID TEXT-002 35 ON OFF COL_KEY。

 WRITE_GRID TEXT-003 7 ON OFF COL_POSITIVE。

 WRITE_GRID TEXT-004 4 ON OFF COL_HEADING。

 跳过2。

 位置5。

 CNTR = 4。

 ENDFORM。

请不要告诉我从该程序中删除宏或其他任何部分。

请告诉我为什么程序似乎没有以

当我在SE38中单击F8时，只有水平线出现在输出中，如下所示：

1

---------------------------------

-----------------------------------

2

---------------------------------

----------------------------

--------------------------------------------

等