Arrays 如果vb6中的数据等于零，则不要将数据添加到数组中

这是我的密码：

i=0
ReDim Preserve cashflowValues(i)
cashflowValues(0) = loanAmount
Do Until adors.EOF
      ReDim Preserve cashflowValues(i)
      IF adors!CashFlow <> 0 Then
          cashflowValues(i) = adors!CashFlow
          End If
          adors.MoveNext
          i = i + 1
    Loop

i=0
重拨保留现金流值（i）
现金流值（0）=贷款金额
直到爱慕
重拨保留现金流值（i）
如果崇拜者！那么现金流为0
现金流价值（i）=崇拜者！现金流
如果结束
下一个
i=i+1
环

但数组中仍然添加了零值。我的代码有什么问题？我错过什么了吗

---

提前感谢那些提供帮助的人！：）

i

仅当值添加到数组中时才必须递增。差不多

IF adors!CashFlow <> 0 Then
    cashflowValues(i) = adors!CashFlow
    i = i + 1
End If
adors.MoveNext

如果你喜欢！那么现金流为0
现金流价值（i）=崇拜者！现金流
i=i+1
如果结束
下一个

i

仅当值添加到数组中时才必须递增。差不多

IF adors!CashFlow <> 0 Then
    cashflowValues(i) = adors!CashFlow
    i = i + 1
End If
adors.MoveNext

如果你喜欢！那么现金流为0
现金流价值（i）=崇拜者！现金流
i=i+1
如果结束
下一个

我还想提一下，我本以为只有在添加新项目时才应该调用循环中的ReDim Preserve cashflowValues（I）行。另一方面，我会尽量避免使用ReDim Preserve，并尽可能预先分配数组的大小（使用Preserve是一个缓慢的操作）。或者，使用VBA.Collection类。我还想提到的是，我认为只有在添加新项时才应该调用循环中的ReDim Preserve cashflowValues（I）行。另一方面，我会尽量避免使用ReDim Preserve，并尽可能预先分配数组的大小（使用Preserve是一个缓慢的操作）。或者，使用VBA.Collection类。