28,407
社区成员
发帖
与我相关
我的任务
分享vbscript里数组问题
请问一下，我想在Class里用Public定义一个二维动态数组
我试了一下，只能这样定义
Public a(10,20)
我希望是一个动态数组a(,20)或a(,)
请问有什么好的方法？
还有，如果是动态数组，如何遍历数组呢？如何获得动态数组下标界限？
谢谢
我试了一下，只能这样定义
Public a(10,20)
我希望是一个动态数组a(,20)或a(,)
请问有什么好的方法？
还有，如果是动态数组，如何遍历数组呢？如何获得动态数组下标界限？
谢谢
...全文
请发表友善的回复…
发表回复
peng0731 2004-01-14
- 打赏
- 举报
都可以修改的，我以前做统计报表的时候经常用到，只是没定义为public
anny622 2004-01-14
- 打赏
- 举报
如果我没记错的话，两维数组好像只能更改后一维的维数，即Redim isRoot(10,i)
peng0731 2004-01-14
- 打赏
- 举报
改成Public isRoot()试一下
mudsong 2004-01-14
- 打赏
- 举报
部分代码
class adminclass
Public isRoot(10,10)
...
Public Function ReadRoot ()
...
Dim rscount
rscount = rs.RecordCount
ReDim isRoot(rscount,2)
for i = 1 to rscount
isRoot(i,0) = rs("ModuleId")
isRoot(i,1) = rs("ModuleRoot")
rs.movenext
next
...
class adminclass
Public isRoot(10,10)
...
Public Function ReadRoot ()
...
Dim rscount
rscount = rs.RecordCount
ReDim isRoot(rscount,2)
for i = 1 to rscount
isRoot(i,0) = rs("ModuleId")
isRoot(i,1) = rs("ModuleRoot")
rs.movenext
next
...
mudsong 2004-01-14
- 打赏
- 举报
用redim没用，会提示错误
mudsong 2004-01-14
- 打赏
- 举报
没用
提示错误
该数组为定长的或临时被锁定: 'isRoot'
/staport/class/adminclass.asp，行138
提示错误
该数组为定长的或临时被锁定: 'isRoot'
/staport/class/adminclass.asp，行138
peng0731 2004-01-14
- 打赏
- 举报
如：dim a()
dim i,j
i=50
j=40
redim a(i,j)
ubound(a,1)=50 一维大小
ubound(a,2)=40 二维大小
dim i,j
i=50
j=40
redim a(i,j)
ubound(a,1)=50 一维大小
ubound(a,2)=40 二维大小
x_gn 2004-01-14
- 打赏
- 举报
对
redim 重定义
redim 重定义
peng0731 2004-01-14
- 打赏
- 举报
用redim重定义数组
用ubound函数得到数组的下表
用ubound函数得到数组的下表
mudsong 2004-01-14
- 打赏
- 举报
update
