Уважаемые! Требуется несколько раз в цикле просмотреть содержимое pFeatureClass. Не подскажите как повторно использовать feature cursor после просмотра всех записей во внутреннем цикле, т.е заново начать просмотр с нулевой записи?
Текст приведен не полностью , но надеюсь вопрос понятен.
Dim MyFeature As IFeature
Dim SearchCursor As IFeatureCursor
Set SearchCursor = pFeatureClass.Search(Nothing, True)
Set MyFeature = SearchCursor.NextFeature
While Rnd < val_cnt
Do While Not (MyFeature Is Nothing)
Wintercol = MyFeature.Value(MyFeature.Fields.FindField("One"))
Summercol = MyFeature.Value(MyFeature.Fields.FindField("Two"))
Set MyFeature = SearchCursor.NextFeature
Loop
Rnd = Rnd + 1
Wend
Спасибо за любые советы.