Dim ci As Collection
Dim i As Integer
For i = 1 To ci.Count
MsgBox ci.Item(i)
Next i
А для коллекций кто ролитель?
Ладно, с рекордсетами и коннекшенами разобрались, а вот для коллекций кто родитель?
Цитата:
Originally posted by mhaturov
Ладно, с рекордсетами и коннекшенами разобрались, а вот для коллекций кто родитель?
Ладно, с рекордсетами и коннекшенами разобрались, а вот для коллекций кто родитель?
Ты и коллекции автоматом перебирать хочешь???:o
Class Collection
Member of VBA
Member of VBA
У коллекций тоже могут быть родители.
Т.е. она может быть независимой (это если ты просто создаешь свою коллекцию как Dim a As Collection) или входить в другой класс (как например коллекция Worksheets принадлежит объекту Workbook)
На счет определения родителя, то ИМХО у самой коллекции такого свойства обычно не делают, а оно есть у объекта из этой коллекции Workbook("my.xls").Worksheets("Лист1").Parent должен вернуть "my.xls", т.е. имя объекта родителя коллекции куда входит и этот объект). Реализация свойства Parent лежит полностью на совести программиста этого класса.
Т.е. она может быть независимой (это если ты просто создаешь свою коллекцию как Dim a As Collection) или входить в другой класс (как например коллекция Worksheets принадлежит объекту Workbook)
На счет определения родителя, то ИМХО у самой коллекции такого свойства обычно не делают, а оно есть у объекта из этой коллекции Workbook("my.xls").Worksheets("Лист1").Parent должен вернуть "my.xls", т.е. имя объекта родителя коллекции куда входит и этот объект). Реализация свойства Parent лежит полностью на совести программиста этого класса.
Цитата:
Originally posted by XtreamAll
Class Collection
Member of VBA
Class Collection
Member of VBA
С этим я обломался :{ . Не получилось... Нет примерчика?
Цитата:
Originally posted by mhaturov
С этим я обломался :{ . Не получилось... Нет примерчика?
С этим я обломался :{ . Не получилось... Нет примерчика?
т.е.?
Цитата:
Originally posted by SergeySV
т.е.?
т.е.?
Не "проглотил" все варианты на тему:
Dim Cl As Collection
For Each Cl In Collections
и т.п.:{
Цитата:
Originally posted by mhaturov
Не "проглотил" все варианты на тему:
Dim Cl As Collection
For Each Cl In Collections
и т.п.:{
Не "проглотил" все варианты на тему:
Dim Cl As Collection
For Each Cl In Collections
и т.п.:{
А если:
Dim Cl As Collection.Item
For Each Cl In Collections
Цитата:
Originally posted by XtreamAll
А если:
Dim Cl As Collection.Item
For Each Cl In Collections
А если:
Dim Cl As Collection.Item
For Each Cl In Collections
Нее....
...так по-моему тока .Net хавает...
А тута можна:
Код:
Че-то я не помойму ребят, вы что хотите сделать то?
Если вас интересует вопрос создания коллекции, то это так:
Dim mycol as Collection
Set mycol = New Collection
или сразу: Dim mycol as New Collection
добавить в коллекцию: mycol.Add objSomething
Если вас интересует вопрос создания коллекции, то это так:
Dim mycol as Collection
Set mycol = New Collection
или сразу: Dim mycol as New Collection
добавить в коллекцию: mycol.Add objSomething
насколько я понял, надо объяснить перебор .item-ов в коллекции...
Цитата:
Originally posted by SergeySV
Че-то я не помойму ребят, вы что хотите сделать то?
Если вас интересует вопрос создания коллекции, то это так:
Dim mycol as Collection
Set mycol = New Collection
или сразу: Dim mycol as New Collection
добавить в коллекцию: mycol.Add objSomething
Че-то я не помойму ребят, вы что хотите сделать то?
Если вас интересует вопрос создания коллекции, то это так:
Dim mycol as Collection
Set mycol = New Collection
или сразу: Dim mycol as New Collection
добавить в коллекцию: mycol.Add objSomething
Да нет, надо наоборот в цикле "грохнуть" все имеющиеся коллекции.
У класса Collection нет родителя чтобы перебрать через него все коллекции :)
Если по аналогии, то это как пытаться перебрать все переменные в программе типа String, обращаясь к этому станд. типу. ;) (кстати в .Net стандартные типы тоже стали объектами/классами навравне со всеми другими, в VB они тоже также работают, но это скрыто от нас)
Если по аналогии, то это как пытаться перебрать все переменные в программе типа String, обращаясь к этому станд. типу. ;) (кстати в .Net стандартные типы тоже стали объектами/классами навравне со всеми другими, в VB они тоже также работают, но это скрыто от нас)
Цитата:
Originally posted by SergeySV
У класса Collection нет родителя чтобы перебрать через него все коллекции :)
Если по аналогии, то это как пытаться перебрать все переменные в программе типа String, обращаясь к этому станд. типу. ;) (кстати в .Net стандартные типы тоже стали объектами/классами навравне со всеми другими, в VB они тоже также работают, но это скрыто от нас)
У класса Collection нет родителя чтобы перебрать через него все коллекции :)
Если по аналогии, то это как пытаться перебрать все переменные в программе типа String, обращаясь к этому станд. типу. ;) (кстати в .Net стандартные типы тоже стали объектами/классами навравне со всеми другими, в VB они тоже также работают, но это скрыто от нас)
А жаль....:{