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

lzy5042 2001-12-18 12:27:11
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) 只能显示最后一条记录.为什么???我要全部显示啊
...全文
101 8 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
lzy5042 2001-12-18
  • 打赏
  • 举报
回复
好了...
给分
结账
Ranma_True 2001-12-18
  • 打赏
  • 举报
回复
Redim Preserve
Preserve应是关键字吧
xmao 2001-12-18
  • 打赏
  • 举报
回复
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

lzy5042 2001-12-18
  • 打赏
  • 举报
回复
(2001-12-18 12:36:08) 老山
不行啊..还是只能输出一条记录.....
各位有没有思路??????
Wesely 2001-12-18
  • 打赏
  • 举报
回复
redim preserve
HOMELAND_XJ 2001-12-18
  • 打赏
  • 举报
回复
Redim 改为Redim Preserve
legate_cn 2001-12-18
  • 打赏
  • 举报
回复
ReDim 会把数组中的数据全部清空,加个参数
Redim Preserve arr(i)
lzy5042 2001-12-18
  • 打赏
  • 举报
回复
谁来看看????
我是老山
相关推荐
发帖
MS-SQL Server

3.4w+

社区成员

MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
帖子事件
创建了帖子
2001-12-18 12:27
社区公告
暂无公告