ник: Гоблин
Народ, подскажите такую штуку. На нажатие кнопки в форме с деревом делаю так:
CurrentDb.Execute "INSERT INTO [Тип аппаратуры] ( Тип) Values ('" & Me.Поле9 & "');"
Me.Список19.Requery
Me.TreeView0.Nodes.Clear
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("select * from [Тип аппаратуры] order by [Тип]")
With rst
If .RecordCount <> 0 Then
Do While Not .EOF
Call Me.TreeView0.Nodes.Add(, , "a" & ![КодТипа], ![Тип])
.MoveNext
Loop
End If
End With
Ну т.е. ввожу в свободном поле инфу, запросом на добавление в таблицу, и после каждого добавления обнуляю дерево, запускаю по этой табле рекордсет с заполнением первого уровня дерева. Так же будет и со 2 и с 3 уровнем. Это извращение или вполне приемлемо?
Вообще так делается?