Колекцията VB не може да бъде индексирана, защото няма свойство по подразбиране? Как да итерирате колекция?

    Dim RS2 As iHistorian_SDK.TagRecordset    
    '...
    For intI = 1 To RS2.Item.Count
        '....
        HistEngHigh = RS2.Item(intI).HiEngineeringUnits

Сега това дава грешка. Интерфейсът „VBA.Collection“ не може да бъде индексиран, защото няма свойство по подразбиране. Сега работеше, когато стартирах кода във VBA 6.5 чрез iFIX, но сега, когато направих самостоятелен проект във Visual Studio 2005, ми дава тази грешка.

И така, какво да правя? Какво е правилното по подразбиране и защо то няма такова/нуждае се от такова?


visual-studio vba vb6 visual-studio-2005
person rolls    schedule 07.10.2010    source източник
comment
На кой ред получавате грешката на последния. Ако погледнете дефиницията на обекта, виждате ли свойство на елемент.   -  person rerun    schedule 07.10.2010

Отговори (1)


arrow_upward
1
arrow_downward

Няма значение, поправих го, като го повторих с помощта на цикъл за всеки, не знаех, че мога да го използвам с персонализирана колекция

    For Each Item In RS2.Item
        WriteLogFile(Item.Description)
        ...
person rolls    schedule 07.10.2010