collection问题
public class oFilter
property name ...
property value...
end class
dim a as new oFilter
dim b as collection
a.name= "a "
a.value= "1 "
b.add(a)
此时b有一个item, 其值是 "a ", "1 "
a.name= "b "
a.value= "2 "
当执行到这里时,发现b原有的item值有问题,变为 "b ", "2 "
b.add(a)
执行完后,b的有2个item,全部为 "b ", "2 "
这是怎么造成的,怎样才能让b的2个item分别为
"a ", "1 "
"b ", "2 "
[解决办法]
Dim a As New oFilter
Dim b As New Collection
a.name = "a "
a.value = "1 "
b.Add(a)
a = New oFilter '你少了这一步
a.name = "b "
a.value = "2 "
b.Add(a)