Generációs faelemhez hierarchikus nézetét ms-hozzáférés révén treeview alkatrész -
Generation faelemhez hierarchikus képviselet MS Access keresztül komponens TreeView
ActiveX TreeView komponens MS Access megjelenítéséhez használt összetett adatok jelennek meg a listában, vagy fa. A szint fészkelő faelemek nincs korlátozva. Ahhoz, hogy használni ezt az összetevőt meg kell csatlakoztatni a link (referenciák) a Microsoft Windows Common Controls 6.0 (SP6).
Dolgozó fa létrehozásához szükséges táblázatot olyan nevet, mint Table1. Ebben fel kell tüntetni a területen - AutoID, Név, ParentID. Legyen a kényelem automatikus növekszik AutoID területen (ez nem kötelező, de meg kell adni, hogy kézzel tiszteletben az egyedülálló ez oszlop értékeit). Script, amely lehetővé teszi, hogy gyorsan hozzon létre egy táblázatot, például az MS Access:
Az egyszerűség kedvéért fogjuk használni osztály cTreeClass. (Nem tévesztendő össze a hagyományos modul!) Hívjon az osztály modul, ahogy tetszik, a lényeg az, hogy ne felejtsük el jobbra, majd alkalmazza azt a formáját (létrehozása révén egy tárgy - ez a kulcsszó Új). Mi osztály modul neve a neve „cTreeClass”.
Az előnye, hogy ez az osztály modult, mivel lehet, hogy észrevette, hogy ő ragaszkodik minden asztalra, ha legalább három mező (kulcs nevét, szülő-kód).
Maga a forma, ami hozzá TreeView összetevő, hogy mi tesz a boot objektum hivatkozva mi osztály és inicializálni a változókat:
Hozzárendelése felvezető a fán kell kódot írni, mint ez:
Ha rákattint minden elemet a listában, akkor kap egy üzenetet a hozzárendelt kulcsok számát.
Próbáltam használni. Ez nem működik. Típuskeveredés a Private Sub Form_Load () Dim tr As Object Set tr = Új cTreeClass * Set tr.Tree = Me.xTree.Object * tr.tbl = "Table1" tr.fldKey = "AutoID" tr.fldParent = "ParentID" tr.fldText = "Név" tr.GenerateTree End Sub
Mivel az osztály kell hívni cTreeClass nem Class1 alapértelmezés
És ne felejtsük el, hogy ParentID a gyökér elem egyenlőnek kell lennie 0. Az alapértelmezett fa minimalizálható. Lehet, hogy igaza van, hogy hozzák nyilvánosságra: Dim nodThis Ahogy MSComctlLib.Node For Each nodThis A Me.xTree.Nodes # „Áthurkolt összes csomópont nodThis.Expanded = True Következő nodThis A Me.xTree .selecteditem.EnsureVisible .SetFocus End With
Jó napot kívánok. On line * Set tr.Tree = Me.xTree.Object * üzenetet jeleníti meg: "Object Mindegy #„t támogatja ezt a tulajdonságot vagy a metódust"
Egy MSComctlLib hozzáadott komponens: C: \ Windows \ System32 \ MSCOMCTL.OCX vagy C: \ Windows \ SysWOW64 \ MSCOMCTL.OCX (64-bites operációs rendszer)?
Néha meg kell állítani a számlálót: ALTER TABLE Table1 ALTER COLUMN AutoID COUNTER (1, 1)