Коллеги, подскажите, что делаю не так TreeView VBA

Узнай цену своей работы

Формулировка задачи:

Делаю примерно следующее. Есть рекордсет (rs) и есть TreeView контрол (tv). Использую рекурсию для построения всего дерева, в функцию передается iParentID, который для корневого элемента равен 0.
когда пробую добавить в него элемент следующим способом:
Добавляет
Когда пробую добавить в него элемент из записи рекордсета
На корневом же элементе вылетает ошибка "35603. Invalid key".
Но тогда чем отличается первый вариант от второго?

Решение задачи: «Коллеги, подскажите, что делаю не так TreeView VBA»

textual
Листинг программы
<font color="blue">For</font> a = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> UBound(obj, <font color="darkblue"><b>2</b></font>)
        ...
        <font color="blue">Set</font> nodx = TreeView1.Nodes.Add(obj(<font color="darkblue"><b>2</b></font>, a), tvwChild, obj(<font color="darkblue"><b>3</b></font>, a)+obj(<font color="darkblue"><b>2</b></font>, a), obj(<font color="darkblue"><b>3</b></font>, a))
        ...
<font color="blue">Next</font> a

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5