？数组的问题.为什么在数组中添加了数据后.在次显示就只能显示最后一条记录?????紧急

[lzy5042]

For i = 0 To 4
ReDim arr(i)
arr(i) = i + 10250
If rs.State = adStateOpen Then rs.Close
Str = "select freight from orders where " & arr(i) & "=orderid "
rs.Open Str, cn, adOpenDynamic, adLockReadOnly
ReDim arr1(i)
arr1(i) = rs.Fields(0)
' Print arr1(i)
Next
Print ""
For i = 0 To UBound(arr1)
Print arr1(i)
Next i

print arr1(i) 只能显示最后一条记录.为什么???我要全部显示啊

[lzy5042]

谁来看看????
我是老山

[legate_cn]

ReDim 会把数组中的数据全部清空，加个参数
Redim Preserve arr(i)

[HOMELAND_XJ]

Redim 改为Redim Preserve

[Wesely]

redim preserve

[lzy5042]

(2001-12-18 12:36:08) 老山
不行啊..还是只能输出一条记录.....
各位有没有思路??????

[xmao]

dim i as integer
If rs.State = adStateOpen Then rs.Close
Str = "select freight from orders where " & arr(i) & "=orderid "
rs.Open Str, cn, adOpenDynamic, adLockReadOnly

ReDim arr(rs.recordcount-1)
rs.movefirst
i=0
do while not rs.eof
arr1(i) = rs.Fields(0)
' Print arr1(i)
i=i+1
rs.movenext
loop
Print ""
For i = 0 To UBound(arr1)
Print arr1(i)
Next i

[Ranma_True]

Redim Preserve
Preserve应是关键字吧

[lzy5042]

好了...
给分
结账