Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Обновление TreeView
 
 автор: Гоблин   (13.01.2015 в 20:40)   личное сообщение
18 Кб.
 
 

С новым годом всех!

И снова TreeView
Заполнение всех веток происходит через рекордсет по соответствующим таблицам.
Добавление элементов через запрос на добавление в таблицу, а затем...

А вот затем, чтобы добавленное отобразилось в дереве, приходится делать ...nodes.clear
Что обнуляет дерево полностью, а затем заново запускать функцию с рекордсетами. А это закрывает уже открытую ветку. В общем не страшно, но каждый раз открывать и заново искать то, что там было и смотреть добавленное... Что-то надоело.
Вопрос. Можно ли сделать так, чтобы добавленная инфа в таблицу сразу отображалась бы в узле дерева. Примерчик накинул. Правой кнопкой мыши по первой ветке дерева для добавления инфы. После добавления дерево вынужденно закрыться для переобновления инфы в нем. Вот это бы и исправить.

  Ответить  
 
 автор: osmor   (14.01.2015 в 09:23)   личное сообщение
 
 

пример не смотрел.
Вы же добавляете данные через форму?
Сразу с записью данных в таблицу сделайте addNode в соответствующее место дерева

  Ответить  
 
 автор: Гоблин   (15.01.2015 в 13:45)   личное сообщение
 
 

AddNode - вот наверно то, что надо. Как бы хотелось посмотреть синтаксис на базе моего примера заполнения дерева и добавления узла.
Ща буду колдовать с синтаксисом. Спасибо.

  Ответить  
 
 автор: Гоблин   (15.01.2015 в 15:10)   личное сообщение
 
 

ЕС!
Сам бы не допер до такого.
В данном случае сразу добавляет и отображает.
Функцию пишу так:
Dim s As String
Dim i As Integer

s = InputBox("Введи тип средства", "Ввод типа")
If s <> "" Then
CurrentDb.Execute "INSERT INTO [Тип основного] (Тип) values ('" & s & "')"
i = DMax("КодТипа", "Тип основного")
Call Forms("инвентарные подразделений").TV6.nodes.Add("a", 4, "t" & i, s)
Else
MsgBox ("Ввод отменен пользователем")
End If

И ОКюшики!!!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList