28,391
社区成员
发帖
与我相关
我的任务
分享如何给数组赋值？
从数据库里面取得一系列的值，如何赋值给数组？
rs_m.movefirst
for i=1 to recordcount temp(i)=rs_m("filename")
rs_m.movenext
next
可是在后面的程序中引用数组的值temp(2)，却怎么也不行？
rs_m.movefirst
for i=1 to recordcount temp(i)=rs_m("filename")
rs_m.movenext
next
可是在后面的程序中引用数组的值temp(2)，却怎么也不行？
...全文
请发表友善的回复…
发表回复
zltostem 2004-08-15
- 打赏
- 举报
Dim temp()
rs_m.movefirst
for i=1 to rs_m.recordcount
Redim preserve temp(i)
temp(i)=rs_m("filename")
rs_m.movenext
next
---------------------
如果还是越界的话，就该考虑取到了多少条记录，也就是rs_m.recordcount为多少。楼主，你知道吗
rs_m.movefirst
for i=1 to rs_m.recordcount
Redim preserve temp(i)
temp(i)=rs_m("filename")
rs_m.movenext
next
---------------------
如果还是越界的话，就该考虑取到了多少条记录，也就是rs_m.recordcount为多少。楼主，你知道吗
liguokun 2004-08-15
- 打赏
- 举报
to zltostem(尘寞)
你这种方法不行啊，
当我response.write(temp(2))时总是出错，提示下标越界
你这种方法不行啊，
当我response.write(temp(2))时总是出错，提示下标越界
zltostem 2004-08-15
- 打赏
- 举报
Dim temp()
rs_m.movefirst
for i=1 to recordcount
Redim preserve temp(i)
temp(i)=rs_m("filename")
rs_m.movenext
next
rs_m.movefirst
for i=1 to recordcount
Redim preserve temp(i)
temp(i)=rs_m("filename")
rs_m.movenext
next
