28,390
社区成员
发帖
与我相关
我的任务
分享高人帮忙求解,数组问题!
请大家帮一帮手解决!
问题:
Dim Data_Array '先定义一个公共变量
Dim CACHE
Set CACHE = new SETUPCLASS '定义类名
...
Data_Array(1,1)="ABC" '数组取值
CACHE.RELOADSETUP 1,1,"CBA" '改变它的变量，在类中的function执行
...
Class SETUPCLASS
...
Public Function RELOADSETUP(I,J,MyValue)
response.write RELOADSETUP(I,J) '能输出值
If Not IsArray(RELOADSETUP) Then Exit Function
RELOADSETUP(I,J) = MyValue
response.write "取值成功" '不能输出,可能在上一步已经退出function
End Function
...
End Class
在线等和UP，请帮忙!
问题:
Dim Data_Array '先定义一个公共变量
Dim CACHE
Set CACHE = new SETUPCLASS '定义类名
...
Data_Array(1,1)="ABC" '数组取值
CACHE.RELOADSETUP 1,1,"CBA" '改变它的变量，在类中的function执行
...
Class SETUPCLASS
...
Public Function RELOADSETUP(I,J,MyValue)
response.write RELOADSETUP(I,J) '能输出值
If Not IsArray(RELOADSETUP) Then Exit Function
RELOADSETUP(I,J) = MyValue
response.write "取值成功" '不能输出,可能在上一步已经退出function
End Function
...
End Class
在线等和UP，请帮忙!
...全文
请发表友善的回复…
发表回复
yellowstrong 2004-08-19
- 打赏
- 举报
首先要注意是否If Not IsArray(RELOADSETUP) Then Exit Function这一句中的RELOADSETUP是不是数组的名称.
可能在之前加了一句on error resume next,使之后的语句出错了都不执行错误信息,RELOADSETUP(I,J) = MyValue这句可能出现类型不匹配的信息.使之后面的语句不执行.
可能在之前加了一句on error resume next,使之后的语句出错了都不执行错误信息,RELOADSETUP(I,J) = MyValue这句可能出现类型不匹配的信息.使之后面的语句不执行.
ryuginka 2004-08-18
- 打赏
- 举报
up
KUMOZAKI 2004-08-18
- 打赏
- 举报
再改一改，好看一些
Dim Data_Array '先定义一个公共变量
Dim CACHE
Set CACHE = new SETUPCLASS '定义类名
...
Data_Array(1,1)="ABC" '数组取值
CACHE.RELOADSETUP 1,1,"CBA" '改变它的变量，在类中的function执行
...
Class SETUPCLASS
...
Public Function RELOADSETUP(I,J,MyValue)
response.write RELOADSETUP(I,J) '能输出值
If Not IsArray(RELOADSETUP) Then Exit Function
RELOADSETUP(I,J) = MyValue
response.write "取值成功" '不能输出,可能在上一步已经退出function
End Function
...
End Class
Dim Data_Array '先定义一个公共变量
Dim CACHE
Set CACHE = new SETUPCLASS '定义类名
...
Data_Array(1,1)="ABC" '数组取值
CACHE.RELOADSETUP 1,1,"CBA" '改变它的变量，在类中的function执行
...
Class SETUPCLASS
...
Public Function RELOADSETUP(I,J,MyValue)
response.write RELOADSETUP(I,J) '能输出值
If Not IsArray(RELOADSETUP) Then Exit Function
RELOADSETUP(I,J) = MyValue
response.write "取值成功" '不能输出,可能在上一步已经退出function
End Function
...
End Class
KUMOZAKI 2004-08-18
- 打赏
- 举报
response.write RELOADSETUP(I,J) '能输出值
在这句改改是
response.write Data_Array(I,J) '能输出值
在这句改改是
response.write Data_Array(I,J) '能输出值
