提示下标越界

[wvtjplh]

Dim   myarray() 
Redim   myarray(1,2) 
j=1
	do while not rs.eof
		myarray(j,0)=Csng(rs("total"))
		myarray(j,1)=rs("tt")
		j=j+1
		ReDim Preserve myarray(j,2) 
		rs.movenext
	loop
	rs.close
	set rs=nothing
	call CloseConn() 
end if

该如何处理？
谢谢！

[Atai-Lu]

...
myarray(1,2)
好像只有
myarray(0,0)
myarray(0,1)

[wvtjplh]

ReDim Preserve myarray(j,2)
不可以吗？

[sy_binbin]

[Quote=引用 1 楼 luxu001207 的回复:]
...
myarray(1,2)
好像只有
myarray(0,0)
myarray(0,1)
[/Quote]

恩


1楼的换头像了啊！差点没认出来

[dgdyq]

把J=1改成J=0试试

[layers2323]

不要搞错了，vb和其他语言的数组不同。
a(1)是个包含2个元素的数组。
a(1,2)是包含2*3 个元素。

你应该是rs的长度超过了。

[tank_pp]

使用 Preserve，只能调整数组最后一维的大小。
可以利用临时数组存储数据，然后再把临时数组数据转回P数组:
Dim myarray()
dim newarray()
Redim myarray(1,2)
j=1
do while not rs.eof
myarray(j,0)=Csng(rs("total"))
myarray(j,1)=rs("tt")
Redim newarray(j,2)
for i=1 to j...'myarray数组数据转至newarray数组中
newarray(i,0)=myarray(i,0)
newarray(i,1)=myarray(i,1)
next
j=j+1
ReDim myarray(j,2)
for i=1 to j-1...'newarray数组数据转至myarray数组中
myarray(i,0)=newarray(i,0)
myarray(i,1)=newarray(i,1)
next
rs.movenext
loop
rs.close
set rs=nothing
call CloseConn()
end if

[toury]

rs.open sql,conn,1,1
if not rs.eof then
Dim myarray()
Redim myarray(rs.recordcount-1,1)

for i=0 to rs.recordcount-1
total=rs("total")&""
if len(total)=0 then total=0
myarray(i,0)=Csng(rs("total"))
myarray(i,1)=rs("tt")&""
rs.movenext
next
rs.close: set rs=nothing
call CloseConn()
else
'...............................
response.end
end if

[toury]

搞错了，看这个：

<%
rs.open sql,conn,1,1
if not rs.eof then
  Dim  myarray()
  Redim  myarray(rs.recordcount-1,1)

  for i=0 to rs.recordcount-1
    total=rs("total")&""
    if len(total)=0 then total=0
    myarray(i,0)=total
    myarray(i,1)=rs("tt")&""
    rs.movenext
  next
  rs.close:  set rs=nothing
  call CloseConn()
else
  '...............................
  response.end
end if
%>

[Atai-Lu]

[Quote=引用 3 楼 sy_binbin 的回复:]
引用 1 楼 luxu001207 的回复:
...
myarray(1,2)
好像只有
myarray(0,0)
myarray(0,1)


恩


1楼的换头像了啊！差点没认出来
[/Quote]
这个头像好啊

[zeroonewfy]

不应该存在下标越界呀.每次都是重新定义过

asp里数组是0开始的

你dim myarray(1,2) 就有
myarray(0,0) myarray(0,1) myarray(0,2)
myarray(1,0) myarray(1,1) myarray(1,2)


6个元素
你没有下标越界呀

你看好错误提示没有.提示的是哪一行.你这里循环没有下标越界问题.你不要看错地方了

[smartcatiboy]

多维数组使用preserve时，只能作用于最后一个维度

'错误的：
redim aTest(A,B)
redim preserve aTest(A+1,B)


'正确的：
redim aTest(A,B)
redim preserve aTest(A,B+1)

[smartcatiboy]

想楼主这种情况，使用recordset.getRows更方便些


strSql="SELECT total,tt FROM tblTable"
set objRst=objCon.execute(strSql)
myarray=objRst.getRows
objCon.close

[sy_binbin]

[Quote=引用 9 楼 luxu001207 的回复:]
引用 3 楼 sy_binbin 的回复:
引用 1 楼 luxu001207 的回复:
...
myarray(1,2)
好像只有
myarray(0,0)
myarray(0,1)


恩


1楼的换头像了啊！差点没认出来

这个头像好啊
[/Quote]

为什么好啊？？你老婆吗？？