- Код: Выделить всё
ID A B C D E F
1 x x v x v Разные данные
2 x v v x v Разные данные
3 v x x v x Разные данные
4 x v x v v Разные данные
Все это нужно запихать в TreeView, у меня это делается так
- Код: Выделить всё
Sub CreateTreeDatenbank()
Dim NodX As Node
Dim strKey As String
Dim mKey As String
Dim intKey As Integer
intKey = 1
strSQL = "SELECT * FROM TraceFiles"
Set RecDB = New ADODB.Recordset
RecDB.Open strSQL, ConDB, adOpenStatic, adLockOptimistic
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Clear
If RecDB.EOF Then Exit Sub
Do While Not RecDB.EOF
mKey = str(intKey) & str(RecDB.Fields("AutoID"))
Set NodX = TreeView1.Nodes.Add(, , mKey, RecDB.Fields("Datenbank"), 1)
Set NodX = TreeView1.Nodes.Add(mKey, tvwChild, mKey & 1, RecDB.Fields("Benutzer"), 2)
Set NodX = TreeView1.Nodes.Add(mKey & 1, tvwChild, mKey & 2, RecDB.Fields("SPID"), 3)
Set NodX = TreeView1.Nodes.Add(mKey & 2, tvwChild, , RecDB.Fields("Methode"), 4)
RecDB.MoveNext
intKey = intKey + 1
Loop
RecDB.Close
Set RecDB = Nothing
End Sub
Возможно ли составить хитрый запрос чтобы получить сгруппированные данные в TreeView или это как-то по другому делается?
Сейчас это выглядит как:
- Код: Выделить всё
x
x
v
x
x
v
v
x
v
x
x
v
x
v
x
v
Получить в трее надо сгруппированое дерево:
- Код: Выделить всё
x
x
v
x
v
v
x
x
v
v
x
x
v
