|
использую функцию
Function TV_ДобавитьУзел(var_TreeView As Control, _
var_Ключ As String, _
var_Текст As String, _
Optional var_РодительскийКлюч = Null, _
Optional var_ОтношениеКРодителю = tvwChild, _
Optional var_Рисунок = Null, _
Optional var_ВыделенныйРисунок = Null, _
Optional var_Recordset As Recordset) As Boolean
' Добавление узла к TreeView (True при удачном добавлении)
'
' Входные данные:
' var_TreeView - Элемент типа TreeView
' var_Ключ - Ключ узла
' var_Текст - Подпись узла
' var_РодительскийКлюч - (необязательный) Индекс или ключ существующего узла.
' К семейству добавляется новый узел, относящийся к указаному
' аргументу. (По умолчанию новый узел добавляется в корень)
' var_ОтношениеКРодителю - (необязательный) Константа аргумента var_РодительскийКлюч
' (По умолчанию = tvwChild):
' ---------------------------------------------------------------------------------------
' | Константа | Знач. | Описание
' ---------------------------------------------------------------------------------------
' | tvwLast | 1 | Новый объект помещается после всех узлов на уровне узла,
' | | | указанного в аргументе var_РодительскийКлюч
' ---------------------------------------------------------------------------------------
' | tvwNext | 2 | Новый объект узла вводится после уровня узла,
' | | | указанного в аргументе var_РодительскийКлюч
' ---------------------------------------------------------------------------------------
' | tvwPrevious | 3 | Новый объект узла вводится перед уровнем узла,
' | | | указанного в аргументе var_РодительскийКлюч
' ---------------------------------------------------------------------------------------
' | tvwChild | 4 | Новый объект узла становится дочерним объектом узла,
' | | | указанного в аргументе var_РодительскийКлюч (уст. по умолчанию)
' ---------------------------------------------------------------------------------------
'
' var_Рисунок - (необязательный) Индекс рисунка в связанном элементе ImageList
' (По умолчанию рисунок отсутствует)
' var_ВыделенныйРисунок - (необязательный) Индекс рисунка для выбранного узла в связанном
' элементе ImageList (По умолчанию рисунок отсутствует)
' var_Recordset - (необязательный) Recordset типа TreeViewNodes
On Error GoTo Err_TV_ДобавитьУзел
Dim boolUseRS As Boolean
Dim var As Variant
If Not var_Recordset Is Nothing Then
boolUseRS = True
Else
boolUseRS = False
End If
If Nz(var_ОтношениеКРодителю) = "" Then
var_ОтношениеКРодителю = tvwChild
End If
'Если нет параметра var_РодительскийКлюч
If Nz(var_РодительскийКлюч) = "" Then
'Если нет параметра var_Рисунок
If Nz(var_Рисунок) = "" Then
'Если нет параметра var_ВыделенныйРисунок
If Nz(var_ВыделенныйРисунок) = "" Then
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ) = var_Текст
Else
If IsNumeric(var_ВыделенныйРисунок) Then
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , , CLng(var_ВыделенныйРисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , , var_ВыделенныйРисунок) = var_Текст
End If
End If
Else
'Если нет параметра var_ВыделенныйРисунок
If Nz(var_ВыделенныйРисунок) = "" Then
If IsNumeric(var_Рисунок) Then
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , CLng(var_Рисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , var_Рисунок) = var_Текст
End If
Else
If IsNumeric(var_Рисунок) Then
If IsNumeric(var_ВыделенныйРисунок) Then
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , CLng(var_Рисунок), CLng(var_ВыделенныйРисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , CLng(var_Рисунок), var_ВыделенныйРисунок) = var_Текст
End If
Else
If IsNumeric(var_ВыделенныйРисунок) Then
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , var_Рисунок, CLng(var_ВыделенныйРисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ, , var_Рисунок, var_ВыделенныйРисунок) = var_Текст
End If
End If
End If
End If
Else
var = var_РодительскийКлюч
'Если нет параметра var_Рисунок
If Nz(var_Рисунок) = "" Then
'Если нет параметра var_ВыделенныйРисунок
If Nz(var_ВыделенныйРисунок) = "" Then
var_TreeView.Nodes.Add(var, var_ОтношениеКРодителю, var_Ключ) = var_Текст
Else
If IsNumeric(var_ВыделенныйРисунок) Then
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , , CLng(var_ВыделенныйРисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , , var_ВыделенныйРисунок) = var_Текст
End If
End If
Else
'Если нет параметра var_ВыделенныйРисунок
If Nz(var_ВыделенныйРисунок) = "" Then
If IsNumeric(var_Рисунок) Then
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , CLng(var_Рисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , var_Рисунок) = var_Текст
End If
Else
If IsNumeric(var_Рисунок) Then
If IsNumeric(var_ВыделенныйРисунок) Then
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , CLng(var_Рисунок), CLng(var_ВыделенныйРисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , CLng(var_Рисунок), var_ВыделенныйРисунок) = var_Текст
End If
Else
If IsNumeric(var_ВыделенныйРисунок) Then
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , var_Рисунок, CLng(var_ВыделенныйРисунок)) = var_Текст
Else
var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ, , var_Рисунок, var_ВыделенныйРисунок) = var_Текст
End If
End If
End If
End If
End If
If boolUseRS Then
var_Recordset.AddNew
var_Recordset!Key = var_Ключ
var_Recordset!Text = var_Текст
var_Recordset!Parent = IIf(var_ОтношениеКРодителю = tvwChild, var_РодительскийКлюч, "")
var_Recordset!Image = Nz(var_Рисунок)
var_Recordset!SelectedImage = Nz(var_ВыделенныйРисунок)
var_Recordset.Update
End If
TV_ДобавитьУзел = True
Exit_TV_ДобавитьУзел:
Exit Function
Err_TV_ДобавитьУзел:
TV_ДобавитьУзел = False
Resume Exit_TV_ДобавитьУзел
End Function
вызываю 1й раз так
Private Sub кнПострДер2_Click()
' строим дерево по уровням: корень, по нажатию - его дочерей
On Error GoTo Err_кнПострДер2_Click
Dim xx As Boolean
DoCmd.Hourglass True
SysCmd acSysCmdSetStatus, "постр дерева2 "
' xx = TV_ПостроитьДеревоПоТаблице(tv, NodeRS)
NodeRS.MoveFirst
xx = TV_ДобавитьУзел(tv, _
NodeRS!Key, _
NodeRS!Text, _
NodeRS!Parent, _
, _
NodeRS!Image, _
NodeRS!SelectedImage)
SysCmd acSysCmdClearStatus
Exit_кнПострДер2_Click:
DoCmd.Hourglass False
Exit Sub
Err_кнПострДер2_Click:
MsgBox Err.Description
Resume Exit_кнПострДер2_Click
End Sub
последующие так
Private Sub tv_NodeClick(ByVal Node As Object)
On Error GoTo Err_tv_NodeClick
Dim xx As Boolean, rst As Recordset
SysCmd acSysCmdSetStatus, "постр узла "
Set rst = CurrentDb.OpenRecordset("select * from treeviewnodes where parent=""" & Node.Key & """", dbOpenDynaset)
If Not (rst.BOF And rst.EOF) Then
rst.MoveFirst
Do While Not rst.EOF
xx = TV_ДобавитьУзел(tv, _
rst!Key, _
rst!Text, _
rst!Parent, _
, _
rst!Image, _
rst!SelectedImage)
rst.MoveNext
Loop
End If
SysCmd acSysCmdClearStatus
Set rst = Nothing
Exit_tv_NodeClick:
Exit Sub
Err_tv_NodeClick:
MsgBox Err.Description
Resume Exit_tv_NodeClick
End Sub
Кстати, где взять последнюю версию treeview?
|
