|
6#
楼主 |
发表于 2012-3-28 15:32:09
|
只看该作者
自己再up
是否可以用Set autoRepository = CreateObject("Mercury.ObjectRepositoryUtil") ?
Dim autoRepository,TOCollection,testobject,i
Set autoRepository = CreateObject("Mercury.ObjectRepositoryUtil")
autoRepository.Load ""
Set TOCollection = autoRepository.GetAllObjectsByClass("")
Array(ObjName#,obj id;O2#P2,O3#P3....) '(arrary应该放在何处和下面的循环如何写比较好?)
For i=0 To TOCollection.count-1
...
...
Next
Set testobject = Nothing
Set TOCollection = Nothing
Set autoRepository = Nothing |
|