arrays - 如果 vb6 中的数据为零，则不要将数据添加到数组中

Question

这是我的代码：

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

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

提前感谢那些提供帮助的人！:)

Answer 1

i只有在将值添加到数组时才必须递增。就像是

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