如何赋值给数组

[qxg1123]

dim kind
i = 1
do while not rs.eof
kind(i) = rs("kind")'报这行有错
i = i+1
'response.write rs("kind")
rs.movenext
loop

Microsoft VBScript 运行时错误 (0x800A000D)
/new/news.asp, 第 17 行

[wsj]

dim kind()

[qxg1123]

我dim kind(100)都没用
老是提示类型不匹配

[750906]

dim kind
kind= rs.getrows
把记录放入二维数组中

[ministry_bill]

dim kind()不行
dim kind(100)肯定行

[ministry_bill]

你的i应该从0开始

[qxg1123]

这与0和1没有关系的
开始我就从0开始的

[blueboymin]

dim kind()
dim i
i = 0
if rs.recordcount > 0 then
redim kind(rs.recorcount)
rs.movefirst
do while not rs.eof
kind(i) = rs("kind").value
i = i + 1
rs.movenext
loop
end if

[tigerwen01]

dim kind
do while not rs.eof
for i=0 rs.recordcount-1
kind(i) = rs("kind")'报这行有错
i = i+1
'response.write rs("kind")
rs.movenext
next
loop

[billyqiao]

dim kind()
i = 1
do while not rs.eof
if not isnull(rs("kind") then '判断rs("kind")是否可用来赋值
kind(i) = rs("kind")'报这行有错
i = i+1
end if
'response.write rs("kind")
rs.movenext
loop

[skylangnet]

定义个数组维数
dim kind(100)就没事了
如果你要动态改变
可以先计算出rs("kind")一共多少条记录，给一个变量，比如a
然后用
dim kind()
redim kind(a)
然后再付值就没事了