Происшествие компонента Ошибка ученика в Inventor
У меня возникла проблема, когда я буду вызывать свой Sub BOM_Document_Creator, и первая строка Sub выдает мне ошибку (случайно и непоследовательно). Я проверил каждую переменную, и все они прошли правильно. Эта проблема кажется довольно случайной, как при ее запуске, и все будет хорошо. В следующий раз это может не сработать снова. Я не объявляю переменную правильно? Может ли быть так, что у меня есть изобретатель и ученик в той же области (я не думаю, что это так, потому что я делаю это в других местах без проблем)?
Private Sub BOM_Document_Creator(odocapp As InventorApprentice.ApprenticeServerDocument, odocinvent As Inventor.Document, Invent As Inventor.Application, TheProgressBar As Progress_Bar, oApprentice As InventorApprentice.ApprenticeServerComponent)
Dim CompCollectionApp As InventorApprentice.ComponentOccurrences = odocapp.ComponentDefinition.Occurrences