如何动态定义数组维数!!马上就结贴!在线等!!

bybee 2004-03-30 09:43:23

我想定义一个数组!
他的维数是变量 num 的值!

那么我怎么定义这个数组呢?

我这样定义出错!求大侠们帮帮忙!!
dim total(num,1)

...全文

59 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

bybee 2004-03-30

打赏
举报

可以了
原来是这样

Dim total()
Dim Num:Num=rs(0)
Redim total(Num,1)

bybee 2004-03-30

打赏
举报

谁帮帮我啊!!!

liuyu202 2004-03-30

打赏
举报

count= Rs.recordcount
Redim myarray(count)
for i=0 to count-1
myarray(i)=i*i
next

bybee 2004-03-30

打赏
举报

id=request.QueryString("id")
Dim Num
Num = my.execute ("select count(*) from dc where par_id = "&id&"")(0)

Dim total(10,1)
Redim total(Num,1)

根本不行!!

hblzg 2004-03-30

打赏
举报

这样更简单（没有测试）
id=request.QueryString("id")
Dim Num
Num = searchtable.execute ("select count(*) from dc where par_id = "&id&"")(0)

Dim total()
Redim total(Num)

应该就可以了

要不你直接给Num一个实际的数值，进行测试看看

bybee 2004-03-30

打赏
举报

bybee 2004-03-30

打赏
举报

to jnnxwjh()

我这样写为什么出错啊!!!rs(0)的值为4

id=request.QueryString("id")
sql="select count(*) from dc where par_id="&id
searchtable my,sql,rs

Dim total(10,1)
Dim Num:Num=rs(0)
Redim total(Num,1)

我这样为什么出错! 我rs(0)已经取出来了!!!

lawdoor 2004-03-30

打赏
举报

借花献拂！
<%
tt="1,4;3,2;4,1;5,6;"
tmp=split(tt,";")
for i=0 to ubound(tmp)-1
tmp1=split(tmp(i),",")
t1=tmp1(0)
t2=tmp1(1)
response.write i &"組"
response.write t1 & "."
response.write t2 & "<br/>"
next
%>

jnnxwjh 2004-03-30

打赏
举报

windancer(^_^) 的方法全面

bybee 2004-03-30

打赏
举报

id=request.QueryString("id")
sql="select count(*) from dc where par_id="&id
searchtable my,sql,rs

Dim total(10,1)
Dim Num:Num=rs(0)
Redim total(Num,1)

我这样为什么出错! 我rs(0)已经取出来了!!!

windancer 2004-03-30