crystal-reports-2016 - 如果有两个以上的项目，公式会跳过第二个项目

Question

我有以下公式

shared StringVar Array DeAr;
shared StringVar De;
shared StringVar SO;
shared NumberVar y;
shared NumberVar z;

if z =1 then SO := CStr({SO_Detail.Promised_Date},"M/d/yy") else "";
z:=z+1;

De := De & " " & CStr({SO_Detail.Promised_Date},"M/d/yy")&":"& 
Trim(Cstr({SO_Detail.Order_Qty},"#####",0,"",""));

DeAr [y] := CStr({SO_Detail.Promised_Date},"M/d/yy")&":"& 
Trim(Cstr({SO_Detail.Order_Qty},"#####",0,"",""));

ReDim preserve DeAr[UBound (DeAr)+1];
y:=y+1;

如果有两个以上的项目，它会循环遍历它总是会跳过第二个项目。我可以打印 De，它将显示项目 1、3、4、5。如果我执行 Join(DeAr, ",") 它再次显示 1,3,4,5。总是离开2号。