循环里的数组 求 ？？？？？？？？？？？？？

[w915]

由于要计算 想在 显示数据库的记录的时候 给一个数组赋值
代码 dim a()
do while not rs.eof
i=0
a(i)=rs("sss")*0.15
rs.movnext
i=i+1
loop

[zjsfdxbao]

    dim a(100)'记得VB需要定义数组大小吧
    i=0
    do while not rs.eof 
    'i=0 该行移到循环外
    a(i)=rs("sss")*0.15 
    rs.movnext 
    i=i+1 
    loop

[w915]

Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配

/Items.asp，行 78

、、、、、、、、、、、、在进行下一个循环的时候 出现？？？？？？？？？？？？？？？？？？？？？？？？？？？

[zjsfdxbao]

你的rs("sss")肯定有空值,加些判断吧

[文盲老顾]

为什么这样写？
dim rsArray
set rs = conn.execute("select * .....")
if not rs.eof then
rsArray = rs.getRows(-1)
end if

直接取成二维数组不是更好么？

[lzp4881]

<%
dim a()
i=0
do while not rs.eof
Redim a(i)
a(i)=rs("sss")*0.15
rs.movnext
i=i+1
loop
%>

[toury]

<%
  dim i,temp,a()
  i=0
  do while not rs.eof
    Redim preserv a(i)
    temp=rs("sss")&""
    if temp="" then temp=0
    a(i)=temp*0.15
    i=i+1:    temp=0
    rs.movnext 
  loop
%> 

最好用 4楼的rsArray = rs.getRows(-1)

[myvicy]

a = rs.GetRows(-1)

[jiang_jiajia10]

[Quote=引用 7 楼 myvicy 的回复:]
a = rs.GetRows(-1)
[/Quote]
UP

[Dogfish]

i=0放错位置了。

[-晴天]

 dim a() 
    i=0 
    do while not rs.eof 
      redim preserve a(i)
      a(i)=rs("sss")*0.15 
      rs.movnext 
      i=i+1 
    loop