关于vbscript中的结构中使用动态数组的问题

[图灵转世]

Class node
Public a()
Public n
End Class

Dim anode
Set anode = new node
anode.n = 5

ReDim anode.a( anode.n)
print anode.n

在使用redim语句时报错，该如何处理

[xiaolei1982]

数组是不能用public来进行传递的

[xiaolei1982]

你可以在类函数中定义：(node)
dim a() as string
dim n as integer
Public Sub ProductLst(lstpro() As String)
a = lstpro
End Sub
然后调用:
Dim anode as node
Set anode = new node
anode.n = 5
dim aaa() as string
redim aaa(n) as string
call ProductLst(aaa() As String)
print anode.n

[三色]

在VS2005中调试正常啊