asviridenkovAntonariy,
Пусть есть дерево в базе
А-|
B
Делаем по нему поиск. Поиск выводит все найденные узлы
Независимо от уровня. Причем их можно раскрывать
Если под условия попадут и А и В то результат выглядит так
+А
В
Теперь если раскрыть А то В оказывается в дереве дваждыЭто настолько криво, что я почти ничего не понял.
Зачем В вставлять в дерево второй раз? Поиск где происходит, на клиенте? Подгрузка вот динамическая, а что если искомые ветки еще не подгрузились?
Если на сервере, почему нельзя просто исключить фильтром те ветки, которые не являются ни родителями ни потомками найденных, и вывести нормальное дерево, подрезанное под условия поиска?
Это дерево вообще знает о принципе
nested sets ? Если нет, то срочно должно узнать.
Вот процедура, которая из обычного дерева типа parent-child делает nested sets, остальные манипуляции таким деревом (кроме фильтрации) доступны по ссылке.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
TreeRecalc cn, 0, 0, 0, 0
Sub TreeRecalc(ByVal cn As ADODB.Connection, ByVal RefID As Long, ByVal Level As Integer, LeftKey As Long, RightKey As Long)
Dim rs As New ADODB.Recordset
Dim rk As Long, lk As Long
Dim rc As Long
Level = Level + 1
Set rs = cn.Execute("select CatalogueID from tblCatalogue where RefID = " & RefID & " Order by Code")
While Not rs.EOF
rc = rc + 1
LeftKey = RightKey + 1
RightKey = LeftKey + 1
rk = RightKey - 1
lk = LeftKey
TreeRecalc cn, rs!CatalogueID, Level, LeftKey, rk
If rk = RightKey - 1 Then
RightKey = rk + 1
Else
RightKey = rk
End If
cn.Execute "update tblCatalogue set Level = " & Level & _
", LeftKey = " & lk & ", RightKey = " & RightKey & " where CatalogueID = " & rs!CatalogueID
rs.MoveNext
Wend
If rc > 0 Then
Set rs = cn.Execute("SELECT MAX(LeftKey) + 1 LeftKey, MAX(RightKey) + 1 RightKey from tblCatalogue WHERE RefID = " & RefID)
LeftKey = rs!LeftKey
RightKey = rs!RightKey
End If
End Sub
Важный момент: у этого дерева должен быть единственный корень.
